Файлы.pascal. Дано натуральное число n. Записать в текстовый файл n простых чисел начиная с 2.

 function prost (x : integer) : boolean;  var    i : integer;    r : boolean;  begin   i := 2;   r := true;   While (i <= x div 2) and (r) do    begin     if x mod i = 0 then      r := false;     i := i +1;    end;   Result := r;  end;  var   i,n : integer;   t : text; begin  readln (n);    assign (t,'file.txt');  rewrite (t);   for i := 2 to n do    begin     if prost(i) then      write (t,i+' ');    end;  close (t);   end.