Это просто жесть, а не скрин. Никогда не сохраняй картинку - которую планируешь выложить в инете - в формате BMP. Он слишком много занимает места и соответственно неоправданно много жрёт трафика (ведь не у всех людей безлимит).
По самой задаче - стучись в аську 337351594, попробую помочь (не бесплатно)
Бесплатные советы:
1. print = writeln
2. DIM A(250)= var A: array of real;
3. FOR I=0 TO 250
NEXT I
=
for i:=1 to 250 do begin
end;
и так далее
