Программа не работает, помогите исправить: Создать файл, содержащий сведения о компьютерах. Паскаль

[Марус]

Создать файл, содержащий сведения о компьютерах. Структура записи: тип ПК, тактовая частота, об"ем ОП, об"ем винчестера, стоимость.

program magamed;
uses crt;
type
    comp=record
    tip:integer;
    tak_chat: string[20];
    V_OP:string[20];
    V_vinch:string[30];
    price:real;
    end;

var
   buf:comp;
   tip:string[12];
   f:file of comp;

begin
     clrscr;
     write('Имя файла:'); read(tip);
     assign(f,tip+'.dat'); rewrite(f);
     repeat
           writeln('Введите сведения о компьютерах');
           write('Тип ПК:'); read(buf. tip);
                if buf. tip<>0 then
                   begin
                    write('Тактовая частота ');read(buf.tak_chat);
                    write('Объем ОП ');read(buf.V_OP);
                    write('Объем винчестера ');read(buf.V_vinch);
                    write('Стоимость ');read(buf.price);
                    write(f,buf);
                   end;
           clrscr;
     until buf.tip=0;
     writeln('Запись в файл завершена');
     close(f);
end.

[Alex11223]

К пятой теме замените " на ъ в своей копипасте?

"не работает" ни о чем не говорит, надо описать что и как не работает, что пробовали делать с этим, какие предположения.

[Serge_Bliznykov]

я проверил программу. Программа работает, данные вводятся, в файл сохраняются.
В чём проблемы?
Почему Вы решили, что " Программа не работает" ?

кстати, а что такое "Тип ПК" ?

--------------------
ОМГ. Это опять очередная тема про одно и то же?!!!
чем ваша старая тема (которая ещё не закрыта - можно туда писать)
Создать файл, содержащий сведения о компьютерах. Структура записи: тип ПК, тактовая частота, объем ОП, объем винчестера, стоимость.
Вас не устроила?
Вы вообще форум читаете или только пишете сюда, а ответы не читаете?!