исправьте ошибке в этой программе так чтобы она работала как в задании:

[owert]

Обработать матрицу, элементами которой являются случайные значения функции f(x)= 10/(1+x2); x [-50;50]. Дана матрица S(14,14). Найти в каждой строке максимальный элемент и поменять его местами с элементами главной диагонали. Напечатать исходную и полученную матрицы.


const
n = 14;
var
mas: array[1..n, 1..n] of real;
f, x, i, j, max2: integer;
max, c: real;
begin
for i := 1 to n do
for j := 1 to n do
begin
x := random(50);
mas[i, j] := 10 / (1 + x * 2);
//mas[i, j] := random(0, 9);
end;
for i := 1 to n do
begin
for j := 1 to n do
Write(mas[i, j]:6:2);
Writeln;
end;
i := 1;
repeat
max := mas[i, j];
for j := 1 to n do
if mas[i, j] >= max then
begin
max := mas[i, j];
max2 := j;
end;
mas[i, max2] := mas[i, i];
mas[i, i] := max;
inc(i);
until i = n;
Writeln;
Writeln;
for i := 1 to n do
begin
for j := 1 to n do
Write(mas[i, j]:6:2);
Writeln;
end;
end.

[Вадим Мошев]

А сами что? Пробуйте сами. Пошаговая трассировка, ИМХО, очень полезный инструмент.

[BDA]

const
  n = 14;

var
  mas: array [1 .. n, 1 .. n] of real;
  x, i, j, p: integer;
  tmp: real;

begin
  writeln('Source:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x := random(101) - 50;
      mas[i, j] := 10 / (1 + x * 2);
      Write(mas[i, j]:6:2);
    end;
    writeln;
  end;
  for i := 1 to n do
  begin
    p := 1;
    for j := 2 to n do
      if mas[i, j] > mas[i, p] then
        p := j;
    tmp := mas[i, i];
    mas[i, i] := mas[i, p];
    mas[i, p] := tmp;
  end;
  writeln;
  writeln;
  writeln('Edited:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(mas[i, j]:6:2);
    writeln;
  end;
  readln;
end.