Задачки. Паскаль АВС.

[Света=)]

Дорогие программисты, помогите пожалуйсто решить 2 задачки=(
1)В квадратной матрице найти номер строки с минимальной суммой её элементов и номер столбца с максимальной суммой элементов. Элементы найденной строки поменять местами с соответствующим элементом найденного столбца.
2)Описать, используя структуру данных запись, расписание(предмет, предподаватель, номер, группы, день недели, часы, аудитория). Составить программу определяющую, какая нагрузка у заданного предподавателя на этой недели и список групп, у которых он ведёт занятия.
С матрицами вообще непонимаю, во 2й начала и то наверн неправильно, незнаю как составить программу которая определиткакая нагрузка у препода и тд.
2)

program zapisi;
type
dannie=record
p,pr,dn:string[20];
ng,ch,aud:1..500;
end;
var
a:dannie;
begin
write('vvedite predmet');
readln(a.p);
write('vvedite predpodavatela');
readln(a.pr);
write('vvedite nomer gruppi');
readln(a.ng);
write('vvedite den nedeli');
readln(a.dn);
write('vvedite chasi');
readln(a.ch);
write('vvedite auditoriu');
readln(a.aud);
writeln(a.p,',',a.pr,'.',a.ng,', ',a.dn,',',a.ch,' chasov ',a.aud,' auditoria.');

[Novi4ok_11]

min:=32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do 
   begin 
     sum:=sum+a[i,j];
   end;
  if sum<min then begin min:=sum; mini:=i; end;
end;
Write('Minimalnaya suma v ',mini,' stroke');

max:=-32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do 
   begin 
     sum:=sum+a[j,i];
   end;
  if sum>max then begin max:=sum; maxi:=i; end;
end;
Write('Maximalnaya suma v ',maxi,' stolbce');

[Света=)]

чтото немогу разобраться, у результате выводит: Minimalnaya suma v 1 strokeMaximalnaya suma v 1 stolbce

[Novi4ok_11]

Вобщем все работает проверил на паскале

var a:array [1..5,1..5] of integer;
maxi,mini,i,j,n,min,max,sum:integer;
begin
n:=3;
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);

for i:=1 to n do begin writeln;
for j:=1 to n do write(' ',a[i,j]);
end;
min:=32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do 
   begin 
     sum:=sum+a[i,j];
   end;
  if sum<min then begin min:=sum; mini:=i; end;
end;
Write('Minimalnaya suma v ',mini,' stroke');

max:=-32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do 
   begin 
     sum:=sum+a[j,i];
   end;
  if sum>max then begin max:=sum; maxi:=i; end;
end;
Write('Maximalnaya suma v ',maxi,' stolbce');
end.

[Света=)]

пасиб большое, всё работает)))

[Света=)]

вот бы теперь со 2й задачей разобраться, начало есть, а как определить какая нагрузка незнаю