Берілген сөйлемді кері рет бойынша қайта жазатын программа құру паскаль [жабық]

Question

Берілген сөйлемді кері рет бойынша қайта жазатын программа құру паскальда

Answer 1

var
    abylai: string;
    php, salem, kurman: byte;

begin
    readln(abylai);
    php:= length(abylai);
    kurman := 0;
    for salem:=php downto 1 do begin
        if abylai[salem] = ' ' then begin
            write(copy(abylai,salem+1,kurman),' ');
            kurman := 0;
        end
        else
            kurman := kurman + 1;
    end;
    write(copy(abylai,salem,kurman));
    writeln;
end.

      сізге сәттілік егер тағыда көмек болса айтыңыз көмектесемін

Answer 2

ээххх каникул умыттырады бәрінде))) негізі білемін бірақ умытып қалдым)))