Задачи в паскале

[Ildar_Yunusov]

помогите пожалуйста с задачами:
1
Числовые значения переменных x и y задаются по вводу. Найти первые по возрастанию номеров строк элементы, имеющие минимальные и максимальные значения, напечатать их значения и номера индексов. Поменять местами элементы строк, которым принадлежат найденные элементы. Напечатать исходную и преобразованную матрицу.
2
Заданы две матрицы A=[a i,j] (i=1, 2, 3; j=1, 2, 3), B=[b i,j] (i=1, 2, 3,4; j=1, 2, 3, 4).
Построить таблицу значений функций y=c*x*x+d для x в интервале от 0 до 1 включительно, Дельта x=0.1, где c- след матрицы A; d- след матрицы B. Следом матрицы называется сумма элементов главной диагонали. Вычисление следа матрицы оформить в виде подпрограммы.
Исходные данные:
матрица A 3*3 ее элементы
1 2 3
4 5 6
7 8 9
матрица В 4*4 ее элементы
1.2 8 4 1
7.5 3 1.2 6
-2 1 -1 -7
5 4 3 2
3
Заданы матриц A=[a i,j] (i=1, 2, 3, 4; j=1, 2, 3, 4), B=[b i,j] (i=1, 2, 3, 4; j=1, 2, 3, 4).
Перемножить эти матрицы, предварительно расставив в порядке убывания элементы в главных диагоналях матриц A и B. Расстановку элементов в диагоналях матриц в порядке убывания оформить в виде подпрограммы.
Исходные данные:
матрица А ее элементы
0,5 2,3 -0,8 1,1
2,2 -1 1,35 4
2,5 2,8 3,3 1,1
0,5 1,8 7,05 4,1
матрица В ее элементы
3,1 2,5 -0,5 4,44
0,8 -2,1 3,3 0,1
1 2,2 3,4 2
0,8 -1 0,3 1

вот мои наброски по 1 задачи не могу понять где ошибка , подскажите пжлста
program lp;
uses crt;
var
a:array[1..5,1..6] of single;
x,y,buf,max,min:single;
i,j,ifact,p,q,f,kl:integer;
begin
clrscr;
write ('x=');
readln (x);
write ('y=');
readln (y);
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
if (i+j) > 3 then a[i,j]:=ln(j*exp((x-y)/2))+exp(i*ln(x))
else begin
ifact:=0;
for f:=i downto 1 do begin ifact:=ifact+f end;
a[i,j]:=x+exp(i*ln(x))/ifact;
end;
end;
end;
writeln('Isxodnaya matrica');
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:5:3,' ');
end;
writeln;
end;




a[1,1]:=max; p:=1;
for k:=2 to 5 do
begin
if a[k,1]>max then begin a[k,1]:=max; p:=k; end;
end;
writeln('max=',max:5:3,' nomer stroki =',p:1);

a[1,1]:=min; q:=1;
for k:=2 to 5 do
begin
if a[k,1]<min then begin a[k,1]:=min; q:=k; end;
end;
writeln('min=',min:5:3,' nomer stroki =',q:1);





for j:=1 to 6 do
begin
buf:=a[q,j];
a[q,j]:=a[p,j];
a[p,j]:=buf;
end;

writeln('Poluchennaya matrica');
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:5:3,' ');
end;
writeln;
end;
readln;
END.