Паскаль. дана символьная строка. удалить из строки первое слово. начало должно быть так: var a: string; i,k: integer; begin writeln('введи строку: '); readln(a); for i: = 1 to length(a) do if a[i]

Var a: string;
i,k:integer;
begin
writeln('Введите строку:');
readln(a);
for i:=1 to length(a) do begin
if a[i]=' ' then begin
k:=i;
break;
end;
end;
write('Строка: ');
if k<>0 then begin
delete(a,1,k);
writeln(a);
end
else writeln('');
end.