Очень нужно написать программу

[cepnoy]

Написать программу, чтобы она подсчитывала количество букв в фамилии и добавляла нужное количество пробелов, допустим string[20].
Заранее благодарен.

[Stilet]

И как же вводится фамилия? Покажи кодом.

[cepnoy]

procedure AddRec;
 var i: integer;
   begin
append(f);
n:=n+1;
write('Vvedite fio 20 simbols');
readln(rasch[n].fio);
write(f,rasch[n].fio);
close(f);
end.

Т.е. у меня как при записи в in.txt если я не добавлю в ручную недостающих пробелов то в документ заносится все каряво.)

[Stilet]

Ога. Тады так:

while length(rasch[n].fio)<20 do rasch[n].fio:=rasch[n].fio+' ';

Вставишь это перед записью.

Кста, мой любимый метод форматирования в твоем случае будет выглядеть так:

write(f,rasch[n].fio,#9#9);

Т.е. использование табуляции.

[cepnoy]

спасибки те огромное, я ток учусь программировать, вот училка и загрузила меня работенкой)

[cepnoy]

Не сочти за наглость.)
Можешь написать процедуру на удаление, этой фамилии?)
За ранее спасибки)

[Stilet]

Я баиньки хочу. У меня уже спокойной ночи малыши начались )
А ты по форуму поиши - были темы где указывалось как из файла удалять записи - в цикле их перечитать в другой файл, кроме той которая под условие попадает, а потом второй файл просто переименовать по имени первого - создастся эффект редактирования.

Кста. Я тебе рекомендую такие вещи делать не в текстовых файлах, а в типизированных. Читай про seek, file of тип и т.д.

[cepnoy]

Оке спс за совет.