Как записать результат pascal в текстовый файл?

Question

[Ашот Асланян]

Program P42;
 
Procedure Print(Sc : string; S : String);
Var i,l,k : integer;
Begin
    l:=length(Sc);
    for i:=1 to l do Begin
        k:=Ord(Sc[i]);
        write(S[k]);
    End;
    writeln;
End;
 
Procedure Gen(n : integer; S : string);
Var Sc    : String;
Var i,j,p : integer;
Var k,m,f : integer;
Begin
    k:=length(S);
    f:=0;
    Sc:=chr(1);
    for i:=2 to n do Sc:=Sc+Chr(1);
    while (True) do Begin
      Print(Sc,S);
      p:=1;
      while (True) do Begin
         m:=Ord(Sc[p]);
         if m<k then Begin
            Sc[p]:=chr(m+1);
            break;
         end
         else Begin
            if p=n then begin
               f:=1;
               break;
            end;
            Sc[p]:=chr(1);
            p:=p+1;
         end;
      End;
      if f > 0 then break;
    End;
End;
Begin
    Gen(32,'abcdef0123456789'); 
End.

когда запускаю снизу есть окно вывода. Можно как нибудь избежать, чтоб резултат там не показывал, а сохранился в какой нибудь текстовый файл?

Answer 1

[Hemul GM]

Write(file, твой текст)

Comments

[Ашот Асланян]

Если не трудно допишите пожалуйста в самом коде. я не разбираюсь в программировании. Очень буду благодарен

[Hemul GM]

Ашот Асланян,
Создай глобальную переменную
var OutFile: TextFile;
Потом создай и открой этот файл
AssigneFile(OutFile, 'myfile.txt');
Rewrite(OutFile);
Теперь можешь добавить переменную файла ко всем процедурам вывода
Wirite(OutFile, S[k]);
В конце программы закрой файл
CloseFile(OutFile);

Answer 2

[kalapanga]

Работа с файлами в паскале