Ошибка i/o error 105.

[Damik]

Программа компилируется. И когда выбираешь txt док чтобы открыть выходить ошибка i/o error 105 . Как можно исправить?

[Аватар]

Как можно исправить?

Найти в коде ошибку и исправить её

[Damik]

Можешь подсказать. Я вообще не нахожу. Вроде все правильно

[Slym]

VAR A:STRING;

[Sibedir]

Какой еще

    WRITELN(A);

Вы куда выводить A собираетесь. Этож не консольное приложение. Использовать READ и WRITE в неконсольном приложении можно только с указанием "устройства" ввода/вывода. Файла, например.

    WRITELN(TF, A);

или можно вывести в Mемо

    Memo1.Lines.Add(A);

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

  for I :=1  to 4  do
  begin  READLN(FI,A); WRITELN(A);
  end;

так лучше

  for I :=1  to 4  do begin
    Readln (FI,A);
    Writeln (A);
  end;

Так плохо

  if B[I,J]<MN then
  begin MN:=B[I,J];
  I1:=I; J1:=J;
END ELSE if B[I,J]>MX then
         begin MX:=B[I,J]; I2:=I; J2:=J;
        end;

так лучше

  if B[I,J] < MN then begin
    MN := B[I,J];
    I1 := I;
    J1 := J;
  end
  else
    if B[I,J] > MX then begin
      MX := B[I,J];
      I2 := I;
      J2 := J;
    end;

И сразу видна вложеность блоков