Матрицы. Записи. Работа с текстовыми файлами. Pascal.

[nicebot14]

Наступила практика. Нужна помощ по таким заданиям:

Задание1
Дан двумерный массив Х размером n*m, заполненный случайными числами. Определить, сколько чисел в массиве равны произведению свиох индексов i*j. Вычислить количество отрицательных элементов в каждом слобце матрицы и сформировать из них новый массив.
Наработки:

Program pr2;
uses crt;
var x:array[1..10,1..10] of integer; xa:array[1..10] of integer; n,m,i,j,k:integer;
Procedure vvod;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
x[i,j]:=trunc(random(100))-50;
end;
Procedure umn;
begin
for i:=1 to n do
for j:=1 to m do begin
if x[i,j]=i*j then
k:=k+1;
end;
end;
Procedure otr;
begin
for i:=1 to m do
begin
xa[i]:=0;
for j:=1 to n do
if x[j,i]<0 then
inc(xa[i]);

end;
end;
begin
clrscr;
write('vvedite n: ');
readln(n);
write('vvedite m: ');
readln(m);
vvod;
umn;
otr;
writeln(k,'chisel v massive ravni proivedeniu indeksov i*j');
writeln('v kawdom stolbce matrici ',xa[i],' otricatelnix elementov');
for i:=1 to m do
write(xa[i],' ');
readln;
end.

Что не так ? Результаты программы явно не те которые нужны по условию.

Задание2
Описать, использую структуру данных запись, данные на учеников (фамилия, улица, дом. квартира). Составить программу, считывающую данные из текстового файла(файл надо создать вручную на компе) и определяющую есть ли ученики, проживающие в одном доме.

Во втором случае незнаю с чего начать и не представляю как из текстового файла перегнать в структуру данных запись.

Задание3.
Рабочее, но "алгоритм не эффективный, это на троечку", хачу знать что можно поправить. (задачу надо было выполнить либо одной процедурой с разными параметрами, либо через функцию)

Program pr1;
uses crt;
Var x,y,u,v,a,b,z,c:real;
Procedure min(var x1,y1,u1:real);
begin
if x1=y1 then writeln('znacheniya odinakovi');
if x1<y1 then u1:=x1;
if x1>y1 then u1:=y1;
end;
begin
write('vvedite x: ');
readln(x);
write('vvedite y: ');
readln(y);
min(x,y,u);
write('u=',u:2:2,' ');
a:=x*y;
b:=x+y;
min(a,b,v);
write('v=',v:2:2,' ');
a:=u+sqr(v);
c:=3.14;
min(a,c,z);
write('z=',z:2:2,' ');
readln;
end.

Буду признательным в помощи по любому из заданий.