Матрицы, строки, файлы, 3 несложных задания Опции

[Timik]

Задание №4 (массивы)
11. Дана матрица целых чисел размером 10*12. Напечатайте индексы всех ее седловых точек. (Седловой точкой называется элемент, который является наименьшим в своей строке и наибольшим в своем столбце или, наоборот, наибольшим в своей строке и наименьшим в своем столбце).

Задание №5 (работа со строками)
11.Школьник набрал на компьютере реферат. Когда он отлучился, его друзья решили над ним подшутить: один предложил удалить все гласные, другой – заменить буквы «г» и «р» их кодовыми значениями, третий – записать текст в обратном порядке. Какой текст увидит школьник после того, как каждый из друзей внесет свои исправления в текст? и какой текст будет получен после применения всех трех вариантов?

Задание №6 (работа с файлами)
11. Имеются два текстовых файла с одинаковым числом строк. Выяснить, совпадают ли их строки. Если нет, то получить номер первой строки, в которой эти файлы отличаются друг.

[klem4]

Задание №4 (массивы)

Решил сделать эту задачу, то что я написал, мне кажется не совсем правильно, и плюс к этому это только половина решения, еще нужно рассмотреть обратный случай, может как-то короче можно ?

Код

uses crt;
const n=3;
        m=4;

var x:array[1..n,1..m] of integer;
   i,j,k:integer;
   newj,newi:integer;
   max,min:integer;
   flag:boolean;

Begin
  clrscr;
  randomize;
  for i:=1 to n do
   begin
      for j:=1 to m do
       begin
          x[i,j]:=random(11);
          write(x[i,j]:2);
          write(' ');
       end;
      writeln;
   end;
  writeln;
  i:=1;
  repeat
     flag:=true;
     newj:=1;
     newi:=i;
     max:=x[i,newj];
     for j:=2 to m do
      if x[i,j]>max then
       begin
          newj:=j;
          max:=x[i,newj];
          newi:=i;
       end;

     min:=x[newi,newj];
     for k:=1 to n do
      if x[k,newj]<min then
       flag:=false;
    if flag then
     writeln('Fpoint - ','x[',newi,',',newj,']=',max{min});
    inc(i);
   until (i>n);
  readln;
end.