Плз Помогите переделать эту прогу на Текстовый файл:

Program MAGAZ;
Uses crt;
TYPE
   Napitok = Record
   name:string;
   kol:integer;
   gazirovanost:(s_gazom,bez_gaza);
   Cena:integer;
   kompania:string
       end;
     Tmas=array[1..50]of Napitok;
             var
         cv:Tmas;
         n,w:byte;

       procedure Zagr_iz_Fail(FileName:string);
         var f:file of Napitok;
         begin
         assign(f,fileName);  
         reset(f);   
         n:=0;
         while (not eof(f)) and (n <> 50) do
         begin
         inc(n);
         read(f,cv[n]);
         end;
         close(f);
         end;

         procedure Sohr_V_Fail(FileName:string);
         var f:file of Napitok;
             i:integer;
             begin
             assign(f,fileName);
             rewrite(f);   
             for i:=1 to n do
             write(f, cv[i]);  
             Close(f);  
             end;

      procedure vvod(var n:byte;var m:Tmas);
       var s:byte; c:char;
       i:Napitok;
         begin
          n:=0;
          repeat n:=n+1;
           with m[n] do
         begin
         clrscr;
         textcolor(10);
           write('Название напитка =');readln(Name);
           write('Количество=');readln(kol);
           write('газированность= (0-без газа; 1-с газом)');readln(s);
           if s=0 then gazirovanost:=bez_gaza else gazirovanost:=s_gazom;
           write('имя компании производителя= '); readln(kompania);
                    write('Цена');readln(Cena);
         writeln('для того чтобы выйти в меню нажмите  Esc,для продолжения работы нажмите 

Enter' );
               end;
                c:=readkey;
                until c=#27;
                end;
            procedure print(n:byte;var m:Tmas);
            var i:byte;
                 begin
                   clrscr;
                   writeln('Прейскурант на напитки');
                    writeln;
                    writeln('------------------------------------------------------');
                    writeln('|Название|Количество|Газированность|Камапния|Цена');
                    writeln('------------------------------------------------------');
                        for i:=1 to n do
                        begin
                        with m[i] do
                        begin
                         gotoXY(1,whereY); write('|',Name);
                         gotoXY(11,whereY);write('|',kol);
                         gotoXY(22,whereY); if gazirovanost=bez_gaza then 
                          write('|без газа ') else write('с газом');
                         gotoXY(37,whereY); write('|',kompania);

                         gotoXY(49,whereY); write('|',Cena);
                         gotoXY(54,whereY); write('|');
                       end;
                        writeln;
                         writeln('-------------------------------------------------------');
                           end;
                           end;
                           Begin {Osnovnaia proga}
                           clrscr;
                           w:=0;
                           while w<4 do begin
                           textcolor(12);
                           writeln('Меню программы');
                           writeln('1:Ввод данных');
                           writeln('2:Вывод данных на экран');
                           Writeln('3:Загрузка из файла');
                        Writeln('4:Сохранение в файл');
                        writeln('5:Выход');
                        readln(w);
                           case w of
                           1:vvod(n,cv);
                           2:print(n,cv);
                           3:Zagr_iz_Fail('Napitok.dat');
                           4:Sohr_V_Fail('Napitok.dat');
                           end;
                           end;
                           readln;
                           end.

Зачем? С текстовым файлом будет в 5 раз геморойней следить за такими записями:

препод сказал сделать через текстовый файл...вот и приходиться делать

Чтоб переделать на текстовый файл достаточно изменить описание в Var:

и поизменять read и  write на readln и writeln где нужно.

Попробуй, должно все получится.

Это сообщение отредактировал(а) Metalex - 15.2.2009, 20:09

Как бы не так... Никто не научил Паскаль одним Read-ом читать запись из текстового файла, придется сделать ввод каждого поля. И записывать в файл аналогично: каждое поле записи по отдельности: