[Elka123]

Даны символы S1,S2,... Известно, что символ S1 отличен от пробела
и что среди S2,S3... имеется хотя бы один пробел.
Рассматриваются S1,...,Sn - символы, предшествующие первому пробелу
(n заранее неизвестно). Преобразовать последовательность S1,...,Sn,
удалив все символы, не являющиеся буквами и цифрами


если я правильно поняла заднание, то код который не работает вот

Код:

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils;
     var

    s: array[1..100] of string;
    n, i, j: byte;

begin
  try

begin
try
repeat
 writeln('vvedite stroky');
 readln(s);
 i:=pos(' ',s);
 if i in [0,1] then writeln('Строка введена неверно! Повторите ввод.');
until not(pos(' ',s) in [0,1]);

while i>0 do if(s[i]='0') then delete(s,i,1) else dec(i);

write(s);
readln

end;
end;


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Админ: Пользуемся тегами для оформления кода!