Ошибка в pascal (Встречен begin, а ожидался конец файла , что нужно дописать чтобы ошибка исчезла?

uses GraphABC;

procedure Zv (x,y: integer; cl:integer);
var i,k: integer;
begin
k:=0;
for i: integer := 1 to 10 do
Print(i);
Println;
// Здесь переменная i не доступна!
for var i := 10 downto 1 do // описание с автоопределением типа
Print(i);
end;
begin
setpencolor(cl);
setpenwidth(4);
setbrushcolor(cl);
circle(x+k div 2+k div 4,y+k div 2+k div 4,k div 2);
circle(x+k div 2+k div 4,y-k div 2-k div 4,k div 2);
circle(x-k div 2-k div 4,y+k div 2+k div 4,k div 2);
circle(x-k div 2-k div 4,y-k div 2-k div 4,k div 2);
setbrushcolor(clyellow);
circle(x,y,k div 2);
setbrushcolor(cl);
circle(x-k,y,k div 2);
circle(x+k,y,k div 2);
circle(x,y-k,k div 2);
circle(x,y+k,k div 2);
k:=k+3;
end.
begin
setwindowsize(360,320);
setpencolor(clblack);
setbrushcolor(clblack);
ellipse(100,270,250,300);

setpencolor(clskyblue);
setbrushcolor(clskyblue);
rectangle(150,150,200,250);
circle(175,250,50);
setpencolor(clgreen);
setbrushcolor(clgreen);
circle(100,150,20);
circle(150,100,20);
circle(220,40,20);
circle(260,100,20);
circle(120,50,20);
circle(210,170,20);
Zv (100,100,clred);
Zv (170,50,clmaroon);
Zv (210,80,clred);
Zv (230,130,clFuchsia);
Zv (160,150,clPurple);
end.

Alena18091    2   16.04.2021 22:54    5