FreePascal.ru

Объясните код программы, распишите всех операторов, и что делают строки.
Program KL8;
uses crt;
var s,t:string;
i:integer;
begin
clrscr;
readln(s);
while s[1]=' ' do delete(s,1,1);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
while s&#91;length(s)&#93;=' ' do delete(s,length(s),1 ...