Работа с файлами Text, редактирование записи. (Pascal)

[mo>u<se]

Помогите, пожалуйста, разобраться с процедурой редактирования записи в текстовом файле, содержащем какбэ базу данных с переменными различного типа. Мои попытки накорябать какое-то подобие этой процедуры вызывают только коллапс у компилятора( Преподователь надеется видеть это как редактирование каждого слова в строке в отдельности, а не построчно, я вроде понимаю что массив перебрать нужно и сравнить введенное с каждым элементом, но получается чушь в результате.

program xxxxx;
uses crt;
 type mag=record
     num: byte;        {№ записи}
     name:string[15]; {Наименование}
     firm:string[15];   {Фирма производитель}
     st:word;            {Стоимость}
     ob:word;           {Объём}
     kol:word;          {Количество}
end;
var f:text;
    pp:array[1..20] of mag;
    n,i:integer;
    CH:char;

{-------------------------Процедура Вывода---------------------------}
Procedure Output;
 {Рисуем шапку таблицы}
           var
   i:integer;
           begin
writeln('____________________________________________________________________');
writeln('|   | Наименование  | Фирма -        | Стоимость | Объём  | Кол-во   |');
writeln('| № | продукта       | изготовитель  | (руб.)    |(Мбайт)| ¬  на складе|');
writeln('|___|_______________|_______________|___________|________|__________|');

 {Вывод}

       for i:=1 to n do
          begin
            write('|',pp[i].num);
            gotoxy(5,Wherey);   {посыл курсора на заданные координаты}
            write('|',pp[i].name);
            gotoxy(21,Wherey);  {для вывода ровной таблицы}
            write('|',pp[i].firm);
            gotoxy(37,Wherey);  
            write('|',pp[i].st);
            gotoxy(49,Wherey);
            write('|',pp[i].ob);
            gotoxy(58,Wherey);
            write('|',pp[i].kol);
            gotoxy(69,Wherey);
            write('|');
            writeln;
           end;

  {Нижняя черта таблицы}
            begin
            writeln('|___|_______________|_______________|___________|________|__________|');
            end;
           end;
{-----------------------Процедура записи в файл---------------------}

Procedure AddRec;  
   var
  count,countf:integer;
  k,kf:string;
    begin
      append(f);
        n:=n+1;
         writeln('Номер записи:');
          readln (pp[n].num);

           writeln('Наименование :');
            readln (pp[n].name);

             k:='';{считаем сколько пробелов нужно для счастья}
             count:=16-length(pp[n].name);
             for i:=1 to count do k:=k+' ';

             writeln('Фирма-изготовитель :');
              readln (pp[n].firm);

             kf:='';
             countf:=16-length(pp[n].firm);
             for i:=1 to countf do kf:=kf+' ';

             writeln('Стоимость :');
            readln (pp[n].st);
           writeln('Объём :');
            readln (pp[n].ob);
             writeln('Количество:');
              readln (pp[n].kol);
      writeln(f);
          write(f,pp[n].num,'   ');
           write(f,pp[n].name,k); {дописываем недостающие пробелы}
            write(f,pp[n].firm,kf);
            write(f,pp[n].st,' ');
           write(f,pp[n].ob,' ');
          write(f,pp[n].kol,' ');
         close(f);
       end;
{-------------------------------Редактирование----------------------}
Procedure Update; {Вот отсюда особенно стыдно}
 var s,c,c1:string;
   x:word;
     begin
  append(f);
   reset(f);
   OutPut;
    Writeln('Введите запись для редактирования');
     readln(c);
      Writeln('Введите новое значение записи');
       readln(c1);
{очередная провальная попытка}
         readln(f,s);
           x:=Pos(c);
            if x<>0 then
             begin
              Delete(s,x,Length(c);
              Insert(c1,s,x)
             end;
            close(f);
      end;
{-------------------------------Меню--------------------------------}
Procedure Menu;
var vibor:integer;
begin
 clrscr;
     writeln('Выберите действие');
        writeln('1-Добавление записи');
         writeln('2-Вывод данных');
        writeln('3-Редактирование');
      readln(vibor);

    case vibor of
     1:AddRec; 
    2:Output;
   3:Update;  
 end;
end;
{---------------------------начало---------------------------------}
{1} begin
  clrscr;
    assign(f,'in.txt');
    reset(f);
    i:=1;
    while not eof(f) do
  begin
     read(f,pp[i].num);
      read(f,pp[i].name);
       read(f,pp[i].firm);
       read(f,pp[i].st);
      read(f,pp[i].ob);
    readln(f,pp[i].kol);
  i:=i+1;
  end;
    n:=i-1;
     writeln (n);
{---------------------Запуск процедур----------------------------}
  clrscr;
      While true do
     begin
    Writeln('Enter – Вызов меню программы.');
  Writeln('ESC – Сбежать в ужасе.');     
CH:=readkey;
  if ord(CH)=27 then break else begin Menu;
     end;
  end;
end.

[Stilet]

var f:text;

А вот это здря. Если хочешь создать свою БД - используй типизированные файлы.
В твоем случае var f:file of mag;
Читай о них, ищи примеры (в том числе с blockread/blockwrite)

[mo>u<se]

Да знаю я Препод хочет текстовый файл.

Procedure Update;
 var    z,vibor1:integer;
         begin
     append(f);
    reset(f);
    i:=0;
   OutPut;
    Writeln('Введите № редактируемой записи');
     readln(z);
          Writeln('Какое значение будем редактировать?');
        Writeln ('1-№ Продукта');
         Writeln ('2-Наименование');
        Writeln ('3-Фирму');
       Writeln ('4-Стоимость');
       Writeln ('5-Объем');
        Writeln ('6-Количество');
         readln(vibor1);
      case vibor1 of
       1:begin
      writeln('Задайте новый порядковый номер:');
       readln(pp[z].num);
        writeln(f);
         writeln(f,pp[z].num,'   ');
       end;

     2:;
     3:;
     4:;
     5:;
     6:;
     end;
            close(f);
      end;

Вот так уже больше на правду похоже вроде.
!дошло что сделать, но не как( Придется его перезаписывать каждый раз при редактировании одной переменной, поправте если ошибаюсь.

[Stilet]

Придется его перезаписывать каждый раз при редактировании одной переменной

В случае с текстовым - да.

Препод хочет текстовый файл.

Печалька...

[mo>u<se]

Procedure Update;
 var
   vibor1,z,x:integer;
     y:string;
     begin
     append(f);
    reset(f);
   OutPut;
    Writeln('Введите № редактируемой записи');
     readln(z);
          Writeln('Какое значение будем редактировать?');
        Writeln ('1-№ Продукта');
         Writeln ('2-Наименование');
        Writeln ('3-Фирму');
       Writeln ('4-Стоимость');
       Writeln ('5-Объем');
        Writeln ('6-Количество');
         readln(vibor1);
      case vibor1 of
       1:begin
      writeln('Новый номер:');
       readln (x);
        pp[z].num:=x;
         rewrite(f);
          for i:=1 to n do
           BEGIN
           write(f,pp[i].num,'   ');
            write(f,pp[i].name);
            write(f,pp[i].firm);
            write(f,pp[i].st,' ');
           write(f,pp[i].ob,' ');
          write(f,pp[i].kol,' ');
       end;

     2:begin
      writeln('Новое наименование:');
       readln(y);
        pp[z].name:=y;
         rewrite(f);
          for i:=1 to n do
           BEGIN
           write(f,pp[i].num,'   ');
            write(f,pp[i].name);
            write(f,pp[i].firm);
            write(f,pp[i].st,' ');
           write(f,pp[i].ob,' ');
          write(f,pp[i].kol,' ');
        end;
     3:begin
      writeln('Новое название фирмы:');
       readln(y);
        pp[z].firm:=y;
         rewrite(f);
          for i:=1 to n do
           BEGIN
           write(f,pp[i].num,'   ');
            write(f,pp[i].name);
            write(f,pp[i].firm);
            write(f,pp[i].st,' ');
           write(f,pp[i].ob,' ');
          write(f,pp[i].kol,' ');
        end; ;
     4:;
     5:;
     6:;
     end;
            close(f);
      end;

Поправочка: На данном этапе перезаписывает только первый столбец и последнюю строку , остальное затирает=\ Если кто разберет мои каракули, скажите,пожалуйста, чего им не хватает(
>>Найден потерянный бегин. Все работает.