Работа с файлами

[skyline17]

1. Изменить способ заполнения массива записей в лабораторной работе № 3 с использованием файлов. Сформировать файлы с реальными фамилиями и именами и заполнить поля записей данными из этих файлов. При заполнении полей записей учитывать пол человека. Отчества сформировать автоматически из файла с мужскими именами путем добавления нужного окончания в зависимости от пола. Мужские имена для отчеств выбирать из файла случайным образом. Для заполнения ФИО дополнительные массивы и файлы не использовать.
2. Один из результатов выполнения заданий из ЛР№ 3 записать в файл.

3. Переписать полученный файл в другой файл, добавив к записи поле – количество букв в ФИО.


При выполнении данной работы на языке Pascal (ObjectPascal, Delphi) в задании 1 использовать текстовый файл, в задании 2 для записи использовать типизированный файл, в задании 3 и для чтения и для записи использовать нетипизированный файл. При работе с файлами дополнительные файлы не использовать.


Задача лабораторной работы № 3:
В группе определить средний балл после зимней сессии и абсолютную успеваемость. Распечатать ФИО студентов, направленных от завода.
Рассортировать студентов по возрастанию среднего балла.

мой код для Задачи лабораторной работы № 3:

type
stud=record
fio: record
f, im, och : string;
end;
oz: array[1..4] of byte;
Ocenka: string;
end;
var
grup: array [1..30] of stud;
sdali: array [1..30] of stud;
i,j,k,kolstud,n:integer;

function RandomName :String;
var
j,i:integer;
ch:char;
begin
ch:=chr(random(192, 223));
result:=ch;
for i:=1 to random(3, 10) do
begin
ch:=chr(random(224, 255));
result:=result+ch;
end;
end;
function RandomOcenka :String;
begin

result:=result+inttostr(random(1,5))+inttostr(random(1,5))+inttostr(random(1,5)); //Оценки за сессию
end;

function PerviySimbol (s: string): String;
begin
delete(s, 2, length(s)-1);
result:=s+'.';
end; 

begin
kolstud:=random(15, 30);
n:=1;
for i:=1 to kolstud do
begin
grup[i].fio.f:=RandomName;
grup[i].fio.im:=RandomName;
grup[i].fio.och:=RandomName;
grup[i].Ocenka:=RandomOcenka;
k:=0;
for j:=1 to 4 do
begin
grup[i].oz[j]:=random(2, 5);
if grup[i].oz[j]=2 then inc(k);
end;
if k<>0 then writeln(grup[i].fio.f,' ', PerviySimbol(grup[i].fio.im),
' ',PerviySimbol(grup[i].fio.och),' ',grup[i].Ocenka,' ','от завода')
else
begin
sdali[n]:=grup[i];
inc(n);
end;
end;
end.

[NetSpace]

если это зачётная задача для первого курса, то, по-моему, препод просто решил от тебя избавиться. тебе нужна работа с типизированными или не с типизированными файлами?
ты хоть скинь тобой приготовленные файлы с именами студентов разного пола, хотя бы 2 штуки, скажем, на Осипова Игоря Михайловича (муж) и Кузюкину Марию Ивановну (жен) и от них будем плясать. подкинем функции для работы с файлами и будем заполнять поля записей...