Выделить в строке символ пробелами слева и справа - Pascal ABC

Формулировка задачи:

Дана стартовая строка. Найти в ней символ, который вводится пользователем с клавиатуры, и отделить этот символ в стартовой строке пробелами слева и справа. Спасибо за внимание!

Код к задаче: «Выделить в строке символ пробелами слева и справа - Pascal ABC»

textual
Var s : string;
    c : char;
    i : integer;
begin
Writeln('Enter string');
Readln(s);
Writeln('Enter char');
Readln(c);
i:=1;
While (i<=length(s)) do
      begin
      If (s[i]=c) then
         begin
         Insert(#32, s, i);
         Insert(#32, s, i+2);
         i:=i+2;
         end else i:=i+1;
      end;
Writeln('New string');
Writeln(s);
Readln;
end.

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ