[Harima Hario]

Проект компилируется, но файл всеравно не создается, подскажите где ошибка.

Код:

procedure SetMinMax(s:string);
var tmp,substr,firstb:string;
var secm:integer;
var firstas:Integer;
var afile:Text;
begin
  substr:='STOPPAGE';

  if(not maxFound) then
    begin
  if(Pos(substr, s) > 0) then
  begin
firstb := Copy(s, Pos(substr, s) + 1, 20);

assignfile(afile,'c:\1234567890.txt');
 rewrite(output);
 writeln(afile,firstb);
 CloseFile(afile);

 reset(input);
 readln(afile,firstb);
 CloseFile(afile);
    end;
  end;

end;

[angvelem]

Это что?

Код:

...
  assignfile(afile,'c:\1234567890.txt');
  rewrite(output);
  writeln(afile,firstb);
  CloseFile(afile);

  reset(input);
  readln(afile,firstb);
  CloseFile(afile); // закрываем уже закрытый файл?

[Harima Hario]

Я попытался сохранить значение переменной firstb в текстовом файлике... подскажите как это сделать правильно.

[angvelem]

При чём тут это? Глаза где?
Присваиваешь файл afile,'c:\1234567890.txt', а уже открываешь rewrite(output). И что после этого ждать? Присвоил afile, так и работай с ним до закрытия.