задача: удалить все пробелы с строчки
не рабочая прога(написана на основе Фаранова):
var
st : String;
i : Byte;
begin
readln(st);
i := ord(st [0] ) ;
while (i <> 0) and (st[i] = ' ') do
begin
dec(i);
st[0] := chr(i)
end;
writeln(st);
readln;
end.
Если циклом по строке, то так:
i := 1;
while (i <= Length(s)) do
if s[i] = ' ' then Delete(s, i, 1)
else inc(i);