{$APPTYPE CONSOLE}

uses
SysUtils;

type sport=record
fam:string[20];
god:integer;
res:real;
end;
tmas=array of sport;
var a,b:tmas;
i,n,k,kol:integer;
f:textfile;
min:sport;
buf:sport;
norm:real;
godr:integer;
nper:integer;
begin
{writeln(‘Vvedite kol sports’);
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
writeln(‘Vv fam’);
readln(a[i].fam);
writeln(‘Vv god’);
readln(a[i].god);
writeln(‘Vv res’);
readln(a[i].res);
end; }
assignfile(f,’D:\temp\sport\file1.txt’);
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
readln(f,a[n-1].fam);
readln(f,a[n-1].god);
readln(f,a[n-1].res);
end;
closefile(f);

writeln;
writeln(‘ fam god res’);
for i:=0 to n-1 do
writeln(a[i].fam:20,a[i].god:5,a[i].res:10:2);
//Поиск самого лучшего, мин рез
min:=a[0];
for i:=0 to n-1 do
if a[i].resa[i+1].fam then
begin
buf:=a[i];
a[i]:=a[i+1];
a[i+1]:=buf;
end;
writeln(‘POSLE SORT’);
writeln(‘ fam god res’);
for i:=0 to n-1 do
writeln(a[i].fam:20,a[i].god:5,a[i].res:10:2);
//в новый массив тех, кто выполнил норматив
writeln(‘Vv normativ’);
readln(norm);
kol:=0;
for i:=0 to n-1 do
if a[i].res<=norm then
begin
kol:=kol+1;
setlength(b,kol);
b[kol-1]:=a[i];
end;
if kol=0 then writeln(‘NET’)
else
begin
writeln(‘VIPOL NORM’);
writeln(‘ fam god res’);
for i:=0 to kol-1 do
writeln(b[i].fam:20,b[i].god:5,b[i].res:10:2);
end;
//победитель среди тех, кто родился после заданного года
writeln(‘VV GOD’);
readln(godr);
nper:=-1;
i:=-1;
while (nper=-1)and(igodr then nper:=i;
end;
if nper=-1 then writeln(‘NET’)
else
begin
min:=a[nper];
for i:=nper to n-1 do
if (a[i].god>godr) and (a[i].res<min.res) then min:=a[i];
writeln(‘POBEDITEL POSLE GODA’);
writeln(min.fam:20,min.god:5,min.res:10:2);
end;
readln;
end.\
не удаляй

Потом считываем саму матрицу в массив а
for i:=1 to n do
begin
for j:=1 to n do Read(a[i,j]);
Readln;
end;

Выводим матрицу
write (’ishodnai matrica’);
writeln;
for i:=1 to n do begin
for j:=1 to n do write (a[i,j],’ ‘);
writeln;
end;

Ищем максимальный элемент и выводим на экран.
for i:=1 to n do //Пробегаемся по строкам
begin
max:=a[i,1]; //В каждой строке счиатем что макс это первый
jmax:=1; //Записываем что он первый
for j:=2 to n do //Смотрим остальные
begin
if a[i,j]>max then //Опа, нашелся элемент побольше
begin
max:=a[i,j]; //Тогда записываем его
jmax:=j; //И его номер
end;

end;
WriteLn(’Max element v stroke ‘,i,’ ‘,max,’ nahoditsya v stolbce ‘,jmax) //Выводим на экран
end;