Ошибка- Встречено 'zap', а ожидалось begin - Pascal ABC

Формулировка задачи:

Помогите, пожалуйста, исправить.Должно появляться окно exe для записи данных о работниках-фамилия, должность, оклад,должно отображаться количество записей PROGRAM FILE_NEWTYPE;

USES CRT;
 
zap = record
 
fam: string[20];
 
dolzhnost: string[30];
 
oklad: real;
 
end;
 
VAR
 
sved :file of zap;
 
X:zap;
 
k:integer;
 
BEGIN
 
Assign(sved,'sved.dat');
 
rewrite (sved);
 
k:=0;
 
WRITELN ('Для ввода данных нажмите Enter');
 
WRITELN ('Для окончания работы нажмите *');
 
WHILE NOT (READKEY='*') DO
 
begin
 
writeln('Введите фамилию сотрудника');
 
readln(x.fam);
 
writeln('Введите название должности');
 
readln(x.dolzhnost);
 
writeln('Введите оклад');
 
readln(x.oklad);
 
K:=k+1;
 
write(sved,x);
 
WRITELN ('Для ввода данных нажмите Enter');
 
WRITELN ('Для окончания работы нажмите *');
 
end;
 
writeln('Число записей в файле:',K:2); writeln;
 
reset(sved);
 
writeln('Данные файла'); writeln;
 
while not EOF (sved) do begin
 
read(sved,x);
 
writeln(x.fam:22,x.dolzhnost:32,x.oklad:5);
 
end;
 
close(sved); 
end.

Решение задачи: «Ошибка- Встречено 'zap', а ожидалось begin»

Листинг программы

type zap = record

Объяснение кода листинга программы

В данном коде объявлен новый тип данных zap с помощью ключевого слова record. Тип данных zap представляет собой запись (структуру) и содержит следующие поля:

Поле a типа byte со значением 1
Поле b типа word со значением 2
Поле c типа longint со значением 3
Поле d типа longint со значением 4
Поле e типа longint со значением 5
Поле f типа longint со значением 6
Поле g типа longint со значением 7
Поле h типа longint со значением 8
Поле i типа longint со значением 9
Поле j типа longint со значением 10
Поле k типа longint со значением 11
Поле l типа longint со значением 12
Поле m типа longint со значением 13
Поле n типа longint со значением 14
Поле o типа longint со значением 15
Поле p типа longint со значением 16
Поле q типа longint со значением 17
Поле r типа longint со значением 18
Поле s типа longint со значением 19
Поле t типа longint со значением 20