audition >_<

Program ve_duong_tu_dong;
uses crt,graph;
type
diem = record
t_d:byte;
x: integer;
y:integer;
end;
var
n,i,j,gd,gm,x1,x2,y1,y2,l,m:integer;
a:array[1..100] of diem;
b,a1,c,b1:array[1..100] of integer;
fv:text;
procedure linenn(x1,y1,x2,y2:integer); { ve duong }
begin
setcolor(9);
setlinestyle(0,0,3);
settextstyle(4,0,1);
line(x1,y1,x2,y2); moveto(x2,y2);
moverel(-5,5); linerel(5,-5);
moverel(-5,-5);linerel(5,5);
delay(4000);
end;
procedure nhap_diem;
begin
write('nhap vao cac diem can ve(m< 23 vi file co 23 diem) m= '); readln(m);
for i:=1 to m do
begin
write('b1[',i,']='); readln(b1[i]);
end;
end;
Procedure mang_diem;
Begin
assign(fv,'d:\nut.txt');
reset(fv);
readln(fv,n);
begin
j:=0;
while not(seekeof(fv)) do
begin
j:=j+1;
readln(fv,a1[j],b[j],c[j]);
a[j].t_d:=a1[j];
a[j].x:=b[j];
a[j].y:=c[j];
end;
end;
close(fv);
End;
Begin
gd:=detect;
nhap_diem;
initgraph(gd,gm,'');
If GraphResult <> GrOk Then
Halt(1);
setbkcolor(white);
setcolor(red);
mang_diem;
i:=1;
while i< m do
begin
j:=i+1;
linenn(a[b1[i]].x,a[b1[i]].y,a[b1[j]].x,a[b1[j]].y);
i:=j;
end;
readln;
closegraph;
End.

hamchoihehe đang làm game pikachu bằng pascal, hơi cùi một tí nhưng rất khó hịc hịc