Помогите, пожалуйста, решить задачу на Паскале! Сижу на экзамене

[Олькавка]

В интервале целых чисел от а до в (вводит пользователь) записать в файл все простые числа. Считать из файла все числа и вывести их на экран.

Очень нужно.

[Kostia]

uses crt;
var
  a,b: integer;
function Prostoe(c: integer):boolean;
var
  i,k: integer;
  p: boolean;
begin
  p:=true;
  k:=round(sqrt(c));
  for i:=2 to k do
    if c mod i=0 then
    begin
      p:=false;
      break;
    end;
  Prostoe:=p;
end;

var
  f:file of integer;
  i: integer;
begin
  clrscr;
  write('Enter a and b '); readln(a,b);
  assign(f,'f.int');
  rewrite(f);
  for i:=a to b do
    if prostoe(i) then
      write(f,i);
  close(f);
  assign(f,'f.int');
  reset(f);
  while not eof(f) do
  begin
    read(f,i);
    write(i,' ');
  end;
  close(f);
  readln;
end.