Помогите решить интересную задачу

[AnaVare]

Вводится тип осадка (снег или дождь), направление ветра*(с права, слева), кол-во осадков. и это все должно выводиться на экран. я сделал так но препод не берет:

uses crt,graph;

var

osadok:integer;
veter:integer;
kosadkov:longint;
dr,dt:integer;

procedure sneg(a:integer; b:longint);
var i,j:integer;
label q,w;
begin
j:=0;
clrscr;
dt:=detect;
initgraph(dt,dr,'c:/langs/bp/bgi');
if a=0 then begin

q:clrscr;
i:=0;
while i<480 do
begin
i:=i+20;
setcolor(15);
outtextxy(0,i,'\* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* ');
line(0,480-j,650,480-j);

end;

clrscr;
i:=10;
while i<480 do begin
i:=i+20;
setcolor(15);
outtextxy(0,i,'\* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \* \*\* \* \* \* \* \* \*');
line(0,480-1-j,640,480-1-j);
end;

while j<b do begin
j:=j+1;
goto q;
end;
end else if a=1 then begin
w:clrscr;
i:=0;
while i<480 do
begin
i:=i+20;
setcolor(15);
outtextxy(0,i,'*/ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ ');
line(0,480-j,640,480-j);
end;

clrscr;
i:=10;
while i<480 do begin
i:=i+20;
setcolor(15);
outtextxy(0,i,'*/ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ */ ');
line(0,480-1-j,640,480-1-j);
end;

while j<b do begin
j:=j+1;
goto w;
end;

end else outtext('Pishi pravilno!');
end;





procedure dojt(a:integer; b:longint);
var i,j:integer;
label q,w;
begin
j:=0;
clrscr;
dt:=detect;
initgraph(dt,dr,'c:/langs/bp/bgi');
if a=0 then begin

q:clrscr;
i:=0;
while i<480 do
begin
i:=i+20;
setcolor(15);
outtextxy(0,i,'\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ');
line(0,480-j,650,480-j);

end;

clrscr;
i:=10;
while i<480 do begin
i:=i+20;
setcolor(15);
outtextxy(0,i,' \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ');
line(0,480-1-j,640,480-1-j);
end;

while j<b do begin
j:=j+1;
goto q;
end;
end else if a=1 then begin
w:clrscr;
i:=0;
while i<480 do
begin
i:=i+20;
setcolor(15);
outtextxy(0,i,'/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /  ');
line(0,480-j,640,480-j);
end;

clrscr;
i:=10;
while i<480 do begin
i:=i+20;
setcolor(15);
outtextxy(0,i,' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /  ');
line(0,480-1-j,640,480-1-j);
end;

while j<b do begin
j:=j+1;
goto w;
end;

end else outtext('Pishi pravilno!');
end;


begin
clrscr;
writeln('Vvedite vid osadka(sneg: 1;dojt: 0);');readln(osadok);
writeln('Vvedute napravlenie vetra (sprava: 1;sleva: 0);'); readln(veter);
writeln('Kol-vo osadkov: ');readln(kosadkov);
if osadok=1 then sneg(veter,kosadkov) else if osadok=0 then dojt(veter,kosadkov) else writeln('napishi pravilno!');
readln;
end.

[Stilet]

Подобное и у нас было. Вот остатки былой славы, мож пригодится:

uses crt;
var veter,sneg,dojd,napravlenie:boolean;k,x,y,i:byte;
s:string;
begin
clrscr;
 repeat
 x:=1;y:=1;
 veter:=true;
 napravlenie:=false;
 if not napravlenie then x:=10;
 s:='';
 if napravlenie then s:='\' else s:='/';
 if not veter then s:='|';
 if sneg then s:=s+'*';
 for k:=0 to 10 do begin
  gotoxy(x,y);
  for i:=1 to 5 do write(s);
  if veter then
   if napravlenie then inc(x) else dec(x);
  inc(y);
 end;
 until keypressed;
end.