Удаление пробелов перед началом текста строки

Протокол работы программы

Работа с простейшим паролем

Program parol;

uses CRT;

var

name:string[30];

parol:string[6];

begin

clrscr;

writeln('vvedite parol iz 6 simvolov ');

readln(parol);

writeln;

if parol='Pascal' then begin

writeln('Vvedite famil ');

readln(name);

writeln;

writeln(name,', Vam dostup razreshen!');

end

else begin

writeln('Neverniy parol! Dostup zapreshen!');

end;

readln;

end.

 


Program del_probel;

uses CRT;

var

st:string[30]; k: byte;

begin

clrscr;

writeln('Vvedite stroku');

readln(st);

writeln;

k:=0;

while (pos(' ',st) = 1) and (length(st)>0) do

begin

delete(st,1,1);

k:=k+1;

end;

writeln('Stroka bez probelov:',st);

writeln;

write('Udaleno ', k,' probela(ov)');

Repeat

Until

KeyPressed

end.