Zapisywanie wyniku procedury do pliku tekstowego...

Proszę o pomoc. Napisałem procedurę, która ma obliczyć liczbę super B pierwszą i zapisać ją w pliku tekstowym, plik również utworzyłem ale nie mam zielonego pojęcia jak zapisać w niej wynik procedury. Program wygląda tak:

uses crt; var a, b, x : longint; Plik : Text;

procedure pierwsze; begin for a:=2 to 1000 do begin x:=0; for b:=1 to a do begin if (a mod b)=0 then x:=x+1; end; if x=2 then Writeln (a); end; end; begin clrscr; Assign (Plik, 'I:/1.txt'); Rewrite (Plik); Writeln (Plik, 'pierwsza'); Close (Plik); Readln; end.

Proszę o jak najszybszą odpowiedź

żeby procedura była wykonywana po pierwsze należy ją wywołać!

ja bym zastosował funkcje. Funkcja zwraca wynik w odróżnieniu od procedury. W tym Twoim przykładzie gdybyś chciał wykonać zapisanie do pliku musiał byś to zrobić wewnątrz procedury. Proponuje tak:

var a:integer;
function pierwsza:integer;
begin
 ... {obliczenia}
 pierwsza:=... (przypisywanie funkcji wyniku obliczeń)
end;
begin {kod główny}
 a:=pierwsza; {przypisanie wyniku zwracanego przez funkcje do zmiennej}
 {zapis do pliku}
 Assign (Plik, ścieżka);
 Rewrite (Plik);
 Writeln (Plik, a);
 Close (Plik);
end.