Отработка текста в Паскаль

[spartanes_dk]

Я наверное здесь уже всем надоел со своими задачами

Помогите, пожалуйста! Мне срочно нужно решить задачи до завтра.

1). Ввести в память значения двух комплексных чисел и найти их сумму;
2). Составить программу, которая организует ввод данных о студентах: имя, фамилия, возраст, название специальности, номер группы и записывает их в массив записей, а затем выводит эти сведения о студентах по номеру записи и по номеру группы.

Кто поможет - тому огромное человеческое спасибо!!!!!!!!!!!

[pomoshnic]

Поробуй вот такой код, но возможно здесь есть ошибки

uses crt;
const filename='students.dat';
type rec=record
       n:string[20];
       f:string[20];
       y:byte;
       ns:string[20];
       ng:byte;
       end;
var  t:file of rec;
     r:rec;
     act,ngr,nrec:byte;
procedure app;
begin
assign(t,filename);
reset(t);
while not eof(t) do read(t,r);
end;
procedure addrec;
begin
assign (t,filename);
app;
write(t,r);
close(t);
end;
procedure findrec;
begin
assign(t,filename);
reset(t);
while ngr<>r.ng do
read(t,r);
with r do
begin
writeln('Имя : ',n);
writeln('Фамилия :',f);
writeln('возраст :',y);
writeln('название специальности :',ns);
writeln('номер группы :',ng);
end;
readln;
end;
procedure findnumb;
begin
write('Введите номер запси :');
readln(nrec);
assign (t,filename);
reset(t);
while nrec<>0 do
read(t,r);
with r do
begin
writeln('Имя : ',n);
writeln('Фамилия :',f);
writeln('возраст :',y);
writeln('название специальности :',ns);
writeln('номер группы :',ng);
end;
readln;
end;
begin
assign(t,filename);
{$i-}reset(t);{si+}
if ioresult<>0 then rewrite(t);
close(t);
clrscr;
writeln('Выберите действие:');
writeln('1 Добавить запись');
writeln('2 Поиск по номеру группы');
writeln('3 Поиск по номеру записи ');
writeln('0 Выход');
readln(act);
case act of
1:addrec;
2:findrec;
3:findnumb;
0:halt;
end;
end.