Матрицы, конец 1го семестра по программированию

[Hacker19_90]

Знаете если кормится одним "высшим образованием" как вы говорите! Вряд ли вы останитесь на так называемой "достойной работе"!
Про какое высшее ОБРАЗОВАНИЕ в России вы говорите? Да я не спорю учусь я в МГУ допустим! Да может быть! А если я там из провинции? Я вот просто не знаю откуда вы MyLastHit! Но тому чему допустим учат и учили меня в плане программирования(давай те о нём) мне достойная работа вообще не как не светит!
И ещё раз вам говорю по диплому родителей не судят! Вот нет у моих родителей высшего образования! И что??? Так им и сказать вы неудачники! Всё равно что они тебя воспитали и тд.!

[Novi4ok_11]

var a:array [1..5,1..5] of integer;
i,j,max,min,n:integer;
begin
 randomize;
 n:=5;
 for i:=1 to n do
 for j:=1 to n do
  begin
   a[i,j]:=random (21)-10;
  end;
 for i:=1 to n do
  begin
   writeln;
   for j:=1 to n do write(a[i,j],' ');
  end;
 for i:=1 to n do
 begin
  max:=-32000;
  min:=32000;
  for j:=1 to n do
  begin
   if (a[i,j]>max) then max:=j;
  end;
  Writeln;

  for j:=1 to n do
  begin
   if (a[j,i]<min) then min:=j;
  end;
   if max=min then writeln(min,':',max)
     else write(''Nety);
 end;
readln;
end.

Вроде я так понял