, сделать надо все в паскале ​

Var
  s:string;
  c1,c2:char;
  i,k:integer;
begin
  Write('Введите строку: '); Readln(s);
  Write('Введите букву, которую надо найти: '); Readln(c1);
  Write('Введите букву, на которую надо заменить: '); Readln(c2);
  k:=0;
  for i:=1 to Length(s) do
    if s[i]=c1 then begin Inc(k); s[i]:=c2 end;
  Writeln('Найдено вхождений и сделано замен: ',k);
  Writeln('Строка после замен:');
  Writeln(s)
end.

Тестовое решение:
Введите строку: А роза упала на лапу Азора
Введите букву, которую надо найти: а
Введите букву, на которую надо заменить: о
Найдено вхождений и сделано замен: 6
Строка после замен:
А розо уполо но лопу Азоро

//В квадратной матрице A [n, n] определить количество строк упорядоченных 
//по убыванию суммы  и вывести их номера.
const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln;
end;
end.