Зацикливание цикла Опции

[Spaun]

Люди помогите доделать процедуру, а точнее вывод таблицы после обработки поиском.
Вот сам вывод :

while (rez<>#79) and (filesize(fo)>0) do
    Begin
      seek(fo,a);
      clrscr;
      read(fo,st);
      n:=1;
      m:=22;
      q:=1;
      write(& #39;ЪДДДВДДДДДДДДДДДДДДДДВДДДДДДДДВДДДДДДД
 ДДДДВДДДДДДДДДДДДДВДДДДДДДДВДДДДДВДДДДДї
');
      writeln;
      write('і ь і Œ аЄ  ⥫Ґд®­  і Œ®¤Ґ«м і ‘в®Ё¬®бвм і „ в  ўл室  і Š ¬Ґа  і Wap і Usb і');
      writeln;
      write(& #39;ГДДДЕДДДДДДДДДДДДДДДДЕДДДДДДДДЕДДДДДДД
 ДДДДЕДДДДДДДДДДДДДЕДДДДДДДДЕДДДДДЕДДДДДґ
');
      writeln;
    while (filepos(fo)<>filesize) do
   begin
    write('і ',q);
    If q<10 then write(' ');
    write('і');
    write(' ',st.MobileMark);
    For i:=1 to (15 - length(st.MobileMark)) do
      Begin
        write(' ');
      End;
    write('і');
    write('  ',st.Mobile);
    For i:=1 to (6-length(st.Mobile)) do
      Begin
        write(' ');
      End;
    write('і');
    If st.Cost<100 then
                       Begin
                         write('      ',st.Cost,'$');
                         write('        ')
                       End
                       else
                       Begin
                         write('    ',st.Cost,'$');
                         write('   ');
                       End;
    write('і');
    write('     ',st.Data);
    write('    і');
    write('  ',st.Kamera);
    For i:=1 to (6-length(st.Kamera)) do
      Begin
        write(' ');
      End;
    write('і');
    write('  ',st.Wap);
    For i:=1 to (3-length(st.Wap)) do
      Begin
        write(' ');
      End;
    write('і');
    write('  ',st.Usb);
    For i:=1 to (3-length(st.Usb)) do
      Begin
        write(' ');
      End;
    write('і');
    writeln;
    q:=q+1;
    end;
  

Заранее спасибо!

Сообщение отредактировано: Spaun - 25.12.2008 0:20