попробуйте сделать мою контрольную (СОР)

Var
    a: array[,] of integer;
    i,j, t,n,m,k: integer;
begin
write('Введите размерность матрицы m и n: '); 
readln(m,n);
if n>m then k:=n else k:=m;
setlength(a,k+1,k+1);     
writeln ('Вводите элементы матрицы по одному: ');   
for i := 1 to m do
   for j:=1 to n do
      readln(a[i,j]);
for i:=1 to k do
  for j:=i to k do
    begin
    t:=a[i,j];
    a[i,j]:=a[j,i];
    a[j,i]:=t;
    end;
writeln; 
writeln ('Транспонированная матрица: ');    
for i := 1 to n do
       begin
       for j:=1 to m do
         write (a[i,j]:4);
       writeln;
       end;
end.

Procedure Replace(var s: string; c: char);
var
  i: integer;
  Lett: set of char;
begin
  Lett := ['A'..'z', 'А'..'я'];
  for i := 1 to Length(s) do
    if s[i] in Lett then s[i] := LowCase(s[i])
    else s[i] := c
end;

var
  s1, s2: string;

begin
  write('Введите первую строку: ');
  readln(s1);
  write('Введите вторую строку: ');
  readln(s2);
  Replace(s1, '$');
  Replace(s2, '_');
  writeln(s1);
  writeln(s2)
end.

Тестовое решение:

Введите первую строку: Карл у Клары украл кораллы, а Клара у Карла... украла кларнет! 1+2+3+4+5=15 По-моему так!
Введите вторую строку: "Colorless green ideas sleep furiously"/ (Noam Chomsky, 1957).
карл$у$клары$украл$кораллы$$а$клара$у$карлаукрала$кларнетпо$моему$так$
_colorless_green_ideas_sleep_furiouslynoam_chomsky