Не могу отладить программу

[Anya Lis]

-1 7 12 8
-1 3 -4 4
3 2 -1 4
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца.

program lab5;
uses crt;
var
a:array [1..3,1..4] of real;
i,j,n,k,r:integer;c, min,max: real;
fr, fw: text;
begin
assign (fr,'c:\games\dan5.pas');
reset(fr);
assign (fw,'c:\games\res5_lis.pas');
rewrite (fw);
for i:=1 to 3 do
begin
for j:=1 to 4 do
read (fr,a[i,j]);
readln (fr, a[i,j]);
end;
writeln (fw,'isx mas A');
for i:=1 to 3 do
begin
for j:=1 to 4 do
write (fw, a[i,j]:6:1);
writeln(fw);
end;
min:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if(a[i,j]>0)and(a[i,j]<=min) then
begin
min:=a[i,j];
k:=i;
n:=j;
end;
max:=a[1,3];
for i:=1 to 3  do
if a[i,j]>=max then
begin
max:=a[i,3];
r:=i;
end;
c:=a[k,n];
a[k,n]:=a[r,3];
a[r,3]:=c;
writeln(fw);
writeln (fw,'new mas A');
for i:=1 to 3 do
begin
for j:=1 to 4 do
write (fw, a[i,j]:6:1);
writeln(fw);
end;
close (fr);
close (fw);
end.

[FPaul]

Неформатированный код тяжело читать и воспринимать. Скажи, что не получается?

[Serge_Bliznykov]

да там в коде куча мелких косячков/бажков!
Хотя, подход годный, направление решения верное.
Реализация чуток подкачала.

я бы попробовал так записать решение:

program lab5;
uses crt;
var
  a: array[1..3, 1..4] of real;
  c: real;
  i, j : integer;
  minPosI, minPosJ, maxIndexInColumn3: integer;
  fr, fw: text;
begin
  assign(fr, 'с:\games\dan5.txt');
  reset(fr);
  assign(fw, 'с:\games\res5_lis.txt');
  rewrite(fw);
  for i := 1 to 3 do
  begin
    for j := 1 to 4 do
      read(fr, a[i, j]);
    readln(fr);
  end;
  close(fr);
  writeln(fw, 'isx mas A');
  for i := 1 to 3 do
  begin
    for j := 1 to 4 do
      write(fw, a[i, j]:6:1);
    writeln(fw);
  end;
  minPosI := -1; minPosJ := -1;
  for i := 1 to 3 do
    for j := 1 to 4 do
      if (a[i, j] > 0) then
       if minPosI<0 then begin
         minPosI := i;
         minPosJ := j
       end
       else
         if a[i,j]<a[minPosI, minPosJ] then begin
           minPosI := i;
           minPosJ := j
       end;
       
  maxIndexInColumn3 := 1;
  for i := 1 to 3 do
    if a[i, 3] >= a[maxIndexInColumn3, 3] then maxIndexInColumn3 := i;
    
  if minPosI<0 then WriteLn('net polojiotelnyh chisel v matrice!')
  else begin
    c := a[minPosI, minPosJ];
    a[minPosI, minPosJ] := a[maxIndexInColumn3, 3];
    a[maxIndexInColumn3, 3] := c
  end;
  writeln(fw);
  writeln(fw, 'new mas A');
  for i := 1 to 3 do
  begin
    for j := 1 to 4 do
      write(fw, a[i, j]:6:1);
    writeln(fw);
  end;
  close(fw);
end.

[Anya Lis]

вылетат, не заработав. если вызвать черный экран, то хочет что бы ввели что то

[Serge_Bliznykov]

а файл 'с:\games\dan5.txt' есть?

[Anya Lis]

есть, не могу понять почему не работает все равно(

[Serge_Bliznykov]

мне отсюда тоже не видно, что у Вас там не работает!

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

У Вас вообще какой компилятор/IDE Паскаля?

[Anya Lis]

а как найти этот отладчик? фри паскаль у меня

[FPaul]

За небольшим исключением он идентичен TurboPascal. Можно поискать в сети "отладчик TurboPascal", почитать статью volvo.
В нём не действуют спецификации типов переменных, но можно выкрутиться и без них.