Вот же, что делать (Паскаль)

[Анжелика]

Вот опять вопрос что с ней не так, какието числа выдаёт, жуть.
Дана квадратная матрица. Получить новую умножая старые элементы на 2, если наибольший элемент стоит на главной диагонали и поделив да 2 в противоном случае.
Program zad48;
uses crt;
const n=4;
type t=array[1..n,1..n] of real;
var a:t; i,k,p,j,max:integer;
b:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('ishodnaya matrica');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
p:=1;
k:=1;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then begin
max:=a[i,j];
p:=i; k:=j;
end;
if k=p then begin
a[i,j]:=(a[i,j]*2);
end
else begin
a[i,j]:=(a[i,j]/2);
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5:2);
writeln;
end;
readln;
end.
Сегодня утром уже экзамен, а я уснуть не могу

[AlDelta]

Читаем правила форума, делаем выводы...
Закрыто.