помогите исправить ошибки в задаче по паскалю, что бы она заработала
Условие: пользователь вводит с клавиатуры текст, необходимо посчитать кол-во пробелов. и развернуть текст задом на перед.

p.s. и как еще сюда дописать условие, что бы текст задом на перед перевернуть? ?

program aaa;
var
s:string;
b,k:integer;
begin
readln(s);
b:=0;
for k:=1 to leangh (s) to if
if s[k] :=' ', then b:=b+1;
writeln('k= ',k);
for k:= ieangth(s) down to 1 do ;
write (s[k]);
writeln;
end.

  • вот так работает
    program aaa;
    var
    s:string;
    b,k:integer;
    begin
    readln(s);
    b:=0;
    for k:=1 to length(s) do
    if s[k]=' ' then b:=b+1;
    writeln('k= ',k);
    for k:= length(s) downto 1 do
    write (s[k]);
    writeln;
    end.

Вас заинтересует