Двумерный массив

[Ildar_Yunusov]

вот задача
Числовые значения переменных x и y задаются по вводу. Найти первые по возрастанию номеров строк элементы, имеющие минимальные и максимальные значения, напечатать их значения и номера индексов. Поменять местами элементы строк, которым принадлежат найденные элементы. Напечатать исходную и преобразованную матрицу.

люди помогите найти недочеты в коде

program lab_10;
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.

[k0tone]

Вот немного поправил твой код:

program lab_10;

uses
  crt;

var
  a:array[1..5,1..6] of single;
  x,y,buf,max,min:single;
  i,j,k,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
      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;

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



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



min:=a[1,1];
q:=1;
for k:=2 to 5 do
  if a[k,1]<min then
    begin
      min:=a[k,1];
      q:=k;
    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 write(a[i,j]:9:3);
    writeln;
  end;

readkey;
end.

P.S. но всё равно не могу понять сути в...

Найти первые по возрастанию номеров строк элементы, имеющие минимальные и максимальные значения

Можешь разъяснить по точнее? Потому что, как мне кажется, программа не до конца правильна...