2-ух мерная массив(матрица) и строки

uses crt;
const n=7;
      m=4;
var a:array[1..n,1..m]of real;
    i,j,k,imax,jmax:integer;
    max,x:real;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=10*random;
        write(a[i,j]:6:2);
      end;
    writeln;
  end;
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
     max:=a[i,j];  {максимум}
     imax:=i;     {номер строки}
     jmax:=j;      {номер столбца}
   end;
writeln('Max=',max:0:2,'  imax=',imax,'  jmax=',jmax);
{перестановка строк}
for j:=1 to m do
  begin
    x:=a[1,j];
    a[1,j]:=a[imax,j]; {меняем местами элементы строки 1 со строкой, где макс}
    a[imax,j]:=x;
  end;
{перестановка столбцов}
for i:=1 to n do
  begin
    x:=a[i,1];
    a[i,1]:=a[i,jmax];{меняем местами элементы столбца1 со столбцом, где макс}
    a[i,jmax]:=x;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:6:2);
    writeln;
  end;
readln
end.

uses crt;
var s,s1,s2:string;
    i,f,k,k1,k2:byte;
begin
clrscr;
repeat
writeln('Predlozenye:');
readln(s);
f:=0;
for i:=1 to length(s) do
if (s[i]='и')and(s[i-1]=' ')and(s[i+1]=' ')then f:=f+1;
{проверям сколько в строке сочетаний пробел и пробел }
until f=1;{если одно - нормально, иначе снова вводим}
k:=pos(' и ',s);{номер первого пробела в сочетании}
for i:=k+3 to length(s)+1 do{от второго пробела+1 до выхода за строку(вдруг слово последнее)}
if (s[i]=' ')or(i=length(s)+1) then{ищем первый пробел}
  begin
   k2:=i;{запоминаем индекс}
   break;{больше не ищем}
  end;
for i:=k-1 downto 0 do{от первого пробела в сочетании-1 назад с выходом из строки(вдруг слово первое)}
if (s[i]=' ')or(i=0) then{первый пробел}
  begin
   k1:=i;{его номер}
   break;{выход из цикла}
  end;
s1:=copy(s,k1+1,k-k1-1);{слово перед и}
s2:=copy(s,k+3,k2-(k+3));{слово после и}
delete(s,k1+1,length(s1));{удаляем первое}
insert(s2,s,k1+1);{на его место второе}
delete(s,k+3,length(s2));{удаляем второе}
insert(s1,s,k+3);{на его место первое}
write(s);{выводим измененную строку}
readln
end.

delete(s,k+3,length(s2));{удаляем второе}
insert(s1,s,k+3);{на его место первое}
delete(s,k1+1,length(s1));{удаляем первое}
insert(s2,s,k1+1);{на его место второе}