Если длина первой строки ментше длины второй строки, то определить количество слов во второй строке, иначе заменить в первой строке букву «А» на «О» — Pascal(Паскаль)

uses crt;
var s1,s2:string;
    i,k:byte;
begin
clrscr;
writeln('Строка 1:');
readln(s1);
writeln('Строка 21:');
readln(s2);
if length(s1)<length(s2) then
 begin
  writeln('Длина первой строки меньше');
  k:=0;
  for i:=1 to length(s2) do
  if ((s2[i]<>' ')and(s2[i-1]=' '))
  or((i=1)and(s2[i]<>' '))then k:=k+1;
  writeln('Количество слов в строке 2=',k);
 end
else
 begin
  writeln('Длина первой строки не меньше');
  for i:=1 to length(s1) do
  if s1[i]='A' then s1[i]:='O';
  writeln('Замена А на О в строке 1');
  write(s1);
 end;
readln
end.