Написать программу заменяющую последнюю букву каждого слова в предложении на ! 80

program prim1;  

Var  

s: string;  

j, k: integer;  

begin  

writeln ('Введите строку символов');  

readln (s);  

k:=0;  

for j=1 to length(s) do  

if s[j]='а' then s[j]:='о' ;  

writeln ('Результат: ', s);  

end.