Код не запускается в Delphi

[Начинающий програм]

Всем доброго времени суток! Программа в делфи не запускается. А в ABC паскале запускается и все работает как надо. Что нужно сделать что бы код запускался в делфи?

{                               Условие задачи.
Создайте файл Студент. Из файла Студент занесите в отдельный файл записи
об отличниках.}

program Student;
type
  anketa=record
           fio:string[50];
           kurs:integer;
           ocenka:record
                    infor,matem,psihol,istoriya:integer
                  end
         end;
  tfile=file of anketa;

procedure Creation_Fail(var f:tfile);
var
  i,n:integer;
  a:anketa;
begin
  writeln('Введите кол-во студентов');
  read(n);
  rewrite(f);
  writeln('Введите данные о студентах');
  for i:=1 to n do
  begin
    writeln('Введите ФИО ',i,' студента');
    read(a.fio);
    writeln('Введите курс на котором обучается ',i,' студент');
    read(a.kurs);
    writeln('Оценка по информатике ',i,' студента');
    read(a.ocenka.infor);
    writeln('Оценка по математике ',i,' студент');
    read(a.ocenka.matem);
    writeln('Оценка по психологии ',i,' студента');
    read(a.ocenka.psihol);
    writeln('Оценка по истории ',i,' студент');
    read(a.ocenka.istoriya);
    write(f,a)
  end;
  close(f)
end;


procedure Print_Fail(f:tfile);
var
  a:anketa;
begin
  reset(f);
  while not eof(f) do
  begin
    read(f,a);
    writeln('ФИО: ',a.fio);
    writeln('Курс: ',a.kurs);
    writeln('Оценка по информатике: ',a.ocenka.infor);
    writeln('Оценка по математике: ',a.ocenka.matem);
    writeln('Оценка по психологии: ',a.ocenka.psihol);
    writeln('Оценка по истории: ',a.ocenka.istoriya)
  end;
  close(f)
end;

procedure New_File(f1:tfile; var f2:tfile);
var
  a:anketa;
  s:integer;
begin
  reset(f1);
  rewrite(f2);
  while not eof(f1) do
    begin
      read(f1,a);
      s:=a.ocenka.infor+a.ocenka.matem+a.ocenka.psihol+a.ocenka.istoriya;
      if s=20 then
      write(f2,a)
    end;
  close(f1);
  close(f2)
end;

var
  f1,f2:tfile;
begin
  assign(f1,'студент');
  assign(f2,'студент2');
  Creation_Fail(f1);
  writeln;
  writeln('Файл содержащий сведения о студентах:');
  Print_Fail(f1);
  New_File(f1,f2);
  writeln;
  writeln('Файл содержащий сведения об отличниках:');
  Print_Fail(f2)
end.

[veniside]

нужно добавить {$APPTYPE CONSOLE } и исправить ошибки.

[Начинающий програм]

А точнее, можно узнать что нужно, что бы в делфи работало?

[veniside]

как минимум добавить var у всех параметров типа tfile

[Rin]

1)Начало должно быть такое:

program Student;

{$APPTYPE CONSOLE}

uses
  SysUtils;


type
 c=record
   infor,matem,psihol,istoriya:integer;
   end;

  anketa=record
           fio:string[50];
           kurs:integer;
           ocenka:c;
         end;
  tfile=file of anketa;

2)Вместо assign и close использовать assignfile и closefile.
3) В процедурах параметры должны быть описанны как переменные, а не как значения.
То есть вместо:

procedure Print_Fail(f:tfile);

должно быть

procedure Print_Fail(var f:tfile);

Ну и в конце тела программы поставить "readln;", иначе вы ничего на экране не увидите, после того как введете всю инфу о учениках.

[Начинающий програм]

Спасибо! Все получилось!