Создать файл с данными о студентах и вывести список на экран

Program TF;
Uses WinCrt;
Type    Work=record
        ceh:byte;
        name:string[20];
        pol:char;
        zar:real;
        vik:byte
        end;
Var     z:work;
        f:file of work;
        s:char;
 
{Процедура вывода базы}
procedure vivod;
begin
        reset(f);       {открываем файл для чтения}
writeln('              Список работающих');
        while not (eof(f)) do   {вывод на экран содержимого файла}
        begin                           
                read(f,z);
                write(z.ceh); gotoxy(10,wherey);
                write(z.name); 
                gotoxy(30,wherey);
                write(z.vik); 
                gotoxy(35,wherey);
                write(z.zar:3:2);
                gotoxy(45,wherey);
                write(z.pol);
 
writeln;
        end;
        end;
{Основная программа} 
Begin
Writeln('      СОЗДАНИЕ ФАЙЛА');
        assign(f,'work.dan');
        rewrite(f);     {создаём файл}
s:='д' ;
        while s='д' do  {заполнение файла будет до тех пор, пока s='д'}
        begin                           
                writeln('Номер цеха');
                readln(z.ceh);
                writeln('Фамилия сотрудника ');
                readln(z.name);
                writeln('Возраст сотрудника ');
                readln(z.vik);
                writeln('Заработная плата ');
                readln(z.zar);
writeln('Пол ');
                readln(z.pol);
                write(f,z);
writeln('Продолжить заполнение файла? (д/н)');
                readln(s);
        end;
        clrscr;
{Вывод на экран содержимого файла} 
vivod;
End.