Укажите ошибку в коде.

[DeamoniC]

Написал простую программу на паскале и не могу запустить, не понимаю в чем ошибка.

Пожалуйста посмотрите файл и укажите на ошибку.

Вот код кому лень файл качать.

program tirdz_firm;
uses crt;
type db=record
	 vards:string;
	 uzvards:string;
	 darb_sakums:string;
	 d_ienakums:string;
	 k_apbalvojumi:string;
end;

var f:file of string;
	dbm:array [1..10] of db;
	n,i,key:integer;
	s:Boolean;
	filename:string;
	procedure ievadisana; forward;
	{procedure izvadisana; forward;}
	procedure menu; forward;
	
{procedure tabula;
begin
	writeln('=================================================================');
	writeln('||  Vards  ||  Uzvards  ||  Darba  ||  Dienas  ||   Komisijas  ||');
	writeln('||         ||           ||  Sakums || Ienakums ||  Apbalvojumi ||');
	writeln('=================================================================');
end;}

procedure ievade;
begin
	clrscr;
	writeln('Jaunas informacijas ievade.');
	write('Ievadiet jauno ierakstu daudzumu: ');
	readln(n);
	for i:=1 to n do
	begin
		writeln('Ievade N',i,'.');
		with dbm[i] do
		begin
			write('Ievadiet vardu: ');
			readln(vards);
			write('Ievadiet uzvardu: ');
			readln(uzvards);
			write('Ievadiet darba sukuma dienu: ');
			readln(darb_sakums);
			write('Ievadiet dienas ienakumus: ');
			readln(d_ienakums);
			write('Ievadiet komisijas apbalvojumus: ');
			readln(k_apbalvojumi);
		end;
	end;
	ievadisana;
	readkey;
	menu;
end;

procedure ievadisana;
begin
	writeln('Faila saglabasana.');
	write('Ievadiet faila nosaukumu: ');
	readln(filename);
	assign(f,filename);
	rewrite(f);
	for i:=1 to n do
	begin
		with dbm[i] do
		begin
			write(f,vards);
			write(f,uzvards);
			write(f,darb_sakums);
			write(f,d_ienakums);
			write(f,k_apbalvojumi);
		end;
	end;
	close(f);
	writeln('Datu baze ',filename,' saglabata.');
end;

procedure menu;
begin
	clrscr;
	writeln('Programmas menu.');
	writeln('1. Jaunas informacijas ievade.');
	writeln('0. Izeja.');
	write('Jusu izvele: ');
	readln(key);
	case key of
	1:ievade;
	0:halt;
end;
	
begin
	menu;
end.

программа на латышском но это тут не главное. Ошибка выдаёт в самом конце на отсутствие ; .

[Stilet]

Поправь на это:

  case key of
	1:ievade;
	0:halt;
  End;
end;
	
begin
	menu;
end.

End'a после кейса не хватает

[DeamoniC]

Спасибо, не знал что после кейса тоже енд нужен.