Перевод программы с Pascal на QBasic

[Андрюха_ЕШКО]

Вот программа на Паскале:

Список телефонов.
program Phone;
uses Crt;
type
   book=record                                    {описание типа-записи}
             Name:string[15];
             Phone:string[8];
            end;
var
    f:file of book;
    zb:book;
    r:string;
Begin
    clrscr;
    assign(f, 'notebook.zap');
    {$I-} reset(f); {$I+}      {отключение и включение контроля}
    if IOResult<>0 then rewrite(f);           {собственный контроль}
    Seek (f, FileSize (f));              {подготовка дозаписи в хвост}
    {ввод данных с клавиатуры}
    repeat
       write ('Фамилия:');    readln (zb.Name);
       write ('Телефон:');    readln (zb.Phone);
       if zb.Name <> ' ' then write (f, zb);      {пустую - не пишем}
    until zb.Phone = ' ';                         {пустая строка - выход}
    close(f);
    clrscr;
    reset(f);
    writeln ('  Список абонентов:');
    repeat
       readln(f,zb);
       writeln (zb.Name, ' ': 15-length(zb.Name), zb.Phone:10);
    until eof(f);
    readln;
End.

Мне нужно ее перевести на Васик... Кто поможет?

[Андрюха_ЕШКО]

Спасибо.... я сделал!)))) хоть и ни кто не ответил... Всё равно спасибо за помощь... В других заданиях вы мне помогли!

Для хранения таблицы «Телефонного справочника» в программе можно воспользоваться следующими операторами data:

 

tel: 'номера телефонов:

data  «Вова», «125-14-80»

data «Саша», «222-01 -02»

data «Маша», «102-99-00»

data «», «»

 

При выбранных представлении данных и сценарии диалога решением могут служить следующие алгоритм и программа:

 

Алгоритм                                                      Программа

алг «Телефонный справочник»                  ' Телефонный справочник

нач                                                                  сls

вывод («поиск номера телефона»)           print «поиск номера телефона»

запрос(«имя=», NN)                                    input «имя=», NN$

чтение-таблицы tel                                    restore tel     

цикл                                                               do

чтение (имя, пот)                                     read im$, nm$

если имя = NN то                                      if im$ = NN$ then

вывод («номер:»,пот)                              print «номер:»,nm$

выход [из цикла]                                       exit do

инес имя = «» то                                       elseif im$ = «» then

вывод («нет такого»)                             print «нет такого»

выход [из цикла]                                       exit do

все                                                                 end if

кцикл                                                            loop

кон                                                                  end