Строки. Проверить текст на правило ча-ща, чу-щу, жи-ши, вывести слово в котором ошибка.

Var MAXL,C: String;
    Pb:integer;
Begin
 Write('Ââåäèòå òåêñò: ');
 ReadLn(C);
 Maxl:='';
   While pos(' ',C) <> 0 Do
     Begin
      Pb:=pos(' ',C);
      if length(maxl)<length(copy(c,1,pb-1)) then
      maxl:=copy(c,1,pb-1)
      else writeln('Íå óïîðÿäî÷åíû!');
      Delete(C,1,Pb);
     End;
End.

uses crt;
var s,sc,sl: string;
    i,j,k,ko: integer;
begin
write('s=');
readln(s);
sl:='';
if s[length(s)]<>'.' then s:=s+'.';
writeln('Ошибки в словах');
ko:=0;
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.')
       then sl:=sl+s[i] else
           begin
               k:=0;
           for j:=1 to length(sl)-1 do
               begin
               sc:=copy(sl,j,2);
               if (sc='чя') or (sc='щя')
                  or (sc='чю') or (sc='щю')
                     or (sc='жы') or (sc='шы') then
                        begin
                        if k=0 then write(sl,' ');
                        inc(k);
                        inc(ko);
                        end;
               end;
           sl:='';
           end;
if ko=0 then writeln('не обнаружены');
readkey
end.

var st,s:string; i,c,sum,j,b:integer;
begin
cls;
sum:=0;
c:=0;
readln(st);
st:=st+' ';
for i:=1 to length(st) do
  if st[i]=' ' then
     begin
        s:=copy(st,1,i-1);
        delete(st,1,i);
          for j:=1 to length(s) do
            begin
              sum:=(ord(s[j])-48);
              if sum>c then begin
                       c:=sum;
                       b:=i-1;
            end;
            end;
 
         
 
end;
writeln('Самое большая цифра =',c,' в позиции ',b);
 
end.

uses crt;
var s,sn: string;
    i: integer;
begin
write('Введите строку  ');
readln(s);
for i:=length(s) downto 1 do
    if s[i] in ['0'..'9'] then
       begin
       sn:=sn+s[i];
       delete(s,i,1);
       end;
sn:=sn+s;
write('Итоговая строка ',sn);
end.