Задачи на языке pascal. Двумерные массивы и строки.

[Hacker19_90]

ну и последняя на строки(ток я не проверял)

i := 1;
j := 1;
while (i <= length(s)) do
begin
    if s[i] <> ' ' then
    begin
        temp[j] := s[i];
        Inc(j);
    end
    else 
    begin
        for j := length(temp) downto 1 do
            Write(temp[j]);
        writeln;
        j := 1;
        temp := '';
    end;
    if i = length(s) then
    begin
        for j := length(temp) downto 1 do
            Write(temp[j]);
        writeln;
        j := 1;
        temp := '';
    end;
    Inc(i);
end;