[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;