Пишу такую программу в турбо паскаль 7.0 Что это за ошибка и как ее исправить?

Пишу такую программу в турбо паскаль 7.0 Что это за ошибка и как ее исправить?
На 7 строке выдает ошибку 2 identifier expected.
вот программа.
1. uses Graph, crt;
2. var
3. Dg, Gm: Integer;
4. a, b, c :integer;

5. Procedure snow(x,y:integer);
6. var
7. begin
line(x+140,y+95,x+160,y+100);
line(x+140,y+105,x+160,y+100);
line(x+140,y+95,x+140,y+105);
line(x+110,y+59,x+117,y+25);
line(x+170,y+59,x+163,y+25);
line(x+117,y+25,x+163,y+25);
circle(x+120,y+90,5);
circle(x+160,y+90,5);
circle(x+140,y+95,45);
line(x+120,y+120,x+160,y+120);
line(x+120,y+120,x+110,y+110);
line(x+160,y+120,x+170,y+110);
delay(200);
end;

begin
Dg:=Detect;
InitGraph(Dg, Gm, '');

a:=0;
b:=0;
c:=300;
Repeat
snow(a,b);
a:=a+10;
cleardevice;
until a>300;

a:=0;

Repeat
snow(a,c);
a:=a+10;
c:=a;
cleardevice;
until a>300;
readln;
CloseGraph;
end.

  • На шестой строке стоит var. Попробуй убрать, вроде в этом дело
  • После var должны стоять переменные, или его не должно быть вовсе. Либо, как сказали выше, убирай var, либо добавляй туда что-нибудь (пусть и ненужное).
  • что такое Detect?