ошибка чтения файла

[Hausgeist]

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

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  Fil,Nim:File of Real; FilName: String[12]; comp,min:Real; i,k:Integer;
begin
  Write('Wvedit" imja fajlu: ');
  Readln(FilName);
  Assign(Fil, FilName);
  Rewrite(Fil);
  Write('Wvedit" k-t" elementiv: ');
  Readln(k);
  for i:=1 to k  do
    begin
      read(comp);
      Write(Fil, comp);
    end;
  min:=comp;
  Reset(Fil);
  for i:=1 to k  do
    begin
      read(Fil,comp);
      if min>comp then min:=comp;
    end;
  Close(Fil);
  Write('Wvedit" imja fajlu de bude zapysanyj MIN: ');
  Readln(FilName);
  Assign(Nim, FilName);
  Rewrite(Nim);
  Write(Nim, min);
  Reset(Nim);
  read(Nim,comp);:mad:
  Writeln(comp:5:3);
  Close(Nim);
  readln;  readln;
end.

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

[Serge_Bliznykov]

не проверял, но я бы, прежде чем читать из файла, сначала ЗАКРЫВАЛ файл.
т.е. (выделил добавленные операторы)

....
  Assign(Fil, FilName);
  Rewrite(Fil);
  Write('Wvedit" k-t" elementiv: ');
  Readln(k);
  for i:=1 to k  do
    begin
      readln(comp);
      Write(Fil, comp);
    end;
  min:=comp;

  Close(Fil);

  Reset(Fil);
  for i:=1 to k  do
    begin
      read(Fil,comp);
      if min>comp then min:=comp;
    end;
  Close(Fil);
  Write('Wvedit" imja fajlu de bude zapysanyj MIN: ');
  Readln(FilName);
  Assign(Nim, FilName);
  Rewrite(Nim);
  Write(Nim, min);

  Close(Nim);

  Reset(Nim);
  read(Nim,comp);:mad:
  Writeln(comp:5:3);
  Close(Nim);
...

p.s. я бы ещё чтение чисел через ReadLn сделал..

p.p.s. а ещё, никто не мешает Вам прочитать ваши файлы (отдельной программой) и посмотреть, что там реально внутри находится!

[s-andriano]

Сообщение от Umnik1

заработало когда reset(f,1) написал...
а как read работаяет я не знаю)

Собственно, Вас с самого начала спрашивали, как описан файл. Вы так и не ответили.
Теперь, когда Вы указали один из вариантов исправления ошибки, стало ясно, что вместо file of real Вы объявили просто file.
Отсюда и ошибка.

Вывод: нужно полностью приводить весь существенный код.