Здравствуйте, Ramis!
Решение задачи в приложении.

Приложение:
uses crt;
const n=25;{количество записей, при тестировании программы можно взять 3-4}
type Trab=record{тип запись-сведения о рабочих}
fam:string[15];
ceh:string[15];
zrp:word;
end;
var f:file of Trab;{типизированный файл записей указанного типа}
rb:Trab;{переменная для хранения информации о записи}
i:byte;
begin
clrscr;
assign(f,'file1.dat');{создаем файл, можно без расширения}
rewrite(f);{открываем для записи}
writeln('Введите сведения о ',n,' рабочих :');
for i:=1 to n do
begin
writeln('Рабочий ',i);
write(' Фамилия: ');readln(rb.fam);
write(' Цех: ');readln(rb.ceh);
repeat
write(' Зарплата (до 65535 руб): ');readln(rb.zrp);
until(rb.zrp>=0)and(rb.zrp<=65535);
write(f,rb);
end;
clrscr;{очищаем экран от ввода}
reset(f);{открываем файл для чтения}
writeln('Список рабочих завода:':30);
writeln('-----------------------------------------');
writeln('| Фамилия | Цех | Зарплата |');
writeln('-----------------------------------------');
while not eof(f) do{пока не конец файла}
begin
read(f,rb);{читаем записи по порядку}
gotoXY(1,whereY);{устанавливаем курсор в нужную позицию текущей строки}
write('| ',rb.fam);{пишем данные}
gotoXY(15,whereY);
write('| ',rb.ceh);
gotoXY(30,whereY);
write('| ',rb.zrp);
gotoXY(41,whereY);
write('|');
writeln;{на новую строку-запись}
end;
writeln('-----------------------------------------');
close(f);{закрываем файл}
readln
end.