Сохранение в файл

[Toshibo]

Помогите организовать сохранение в файл полученных данных.

uses crt,graphabc;
const s: set of byte = [1, 2, 3, 4, 5];
var a, b, c, d, e: byte;
    ar:array[1..10] of string;
    i,j:integer;
    h:text;
    m:string;
begin
Assign(h,'E:\h.txt');
Rewrite(h);
ar[1]:='...';       //массив из цифр
ar[2]:='...';
ar[3]:='...';
ar[4]:='...';
ar[5]:='abc';
   
    for a := 1 to 5 do 
    for b := 1 to 5 do 
    for c := 1 to 5 do 
    for d := 1 to 5 do 
    for e := 1 to 5 do 
        if s - [a] - [b] - [c] - [d] - [e] = [] then
            writeln(ar[a], ar[b], ar[c], ar[d], ar[e]);                
             Writeln(h, m);
             Close(h);

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

            writeln(h,ar[a], ar[b], ar[c], ar[d], ar[e]); <--- так было нужно?

[Toshibo]

Сообщение от ZX Spectrum-128

            writeln(h,ar[a], ar[b], ar[c], ar[d], ar[e]); <--- так было нужно?

и в правду так, спасибо большое.