Помогите . Напишите программу полностью на Паскале

program zadacha;

var i:integer; stroka:string;

begin

readln(stroka);

for i:=1 to Length(stroka) do

if stroka[i]<>chr(ord(32)) then

write(stroka[i])

else

break;

end.