Записи в языке Паскаль

Задание:
создать 4 вопроса по данной программе

всю запись об одном ученике обозначим именем – Stud
все записи ведомости именем –Wedom.
Поля обозначим:
N – порядковый номер;
Fam – фамилия;
Oc – оценки;
Srball – средний балл;
Stud
Wedom
N
Fam
Oc
Srball
Пример

Var
<имя записи>:RECORD
<имя поля 1>:<тип>;
<имя поля 2>:<тип>;
…
<имя поля N>:<тип>;
END;

Var
Wedom:Array[1..25] of
Record
N:Integer;
Fam:String;
Oc: Array[1..3] of 2..5;
Srball:Real; End;
Var
Stud: Record
N:Integer;
Fam:String;
Oc:Array[1..3] of 2..5;
Srball:Real;
End;
{для одной записи}
{для всей ведомости}

{К полям записи можно обращаться по именам}
Stud.N:=1;
Stud.Fam:=’Иванов П.И.’;
Wedom[1].N:=1;
Wedom[1].Fam:=’Иванов П.И.’;
Wedom[3].Oc[2]:=3;

Wedom[3].N:=Stud.N+5;
Wedom[3]:= Wedom[1];

Пользовательский тип

TYPE
<имя записи>: RECORD
<имя поля 1>:<тип>;
<имя поля 2>:<тип>;
…
<имя поля N>:<тип>;
END;
VAR
<имя переменной>: <имя записи>;
<имя массива>: ARRAY [a..b] of
<имя записи>;

Осуществить ввод и вывод, а так же расчет общей суммы машин в автосалоне
i=1,1, N
nom
name
kol
Sum=kol*cena
cena
А
А
i=1,1, N
nom
name
cena
kol
sum
В
В
i=1,1, N
Itogo=itogo+sum
itogo

Program Rec1;
type car=RECORD
nom: integer;
name : string[20];
kol: byte;
cena: real;
sum:real;
END;
var Auto: array [1..5] of car;
i,j:byte; Itogo:real;
BEGIN
for i:=1 to 2 do
begin
write('Номер - ');
readln(Auto[i].nom);
write('Название - ');
readln(Auto[i].name);
write('количество - ');
readln(Auto[i].kol);
write('Цена - '); readln(Auto[i].cena);
Auto[i].sum:= Auto [i].kol* Auto [i].cena;
end;
for i:=1 to 2 do
begin
write(Auto[i].nom,' '); write(Auto[i].name,' '); write(Auto[i].kol,' '); write(Auto[i].cena,' '); write(Auto[i].sum,' ');
writeln;
end;
Itogo:=0;
for i:=1 to 2 do
Itogo:=Itogo+ Auto [i].sum; writeln('Итого - ',Itogo)
END.
Осуществить ввод и вывод, а так же расчет общей суммы по машинам в салоне

Оператор With

Type
anketa1= RECORD
fio: string[45];
pol:char;
dat_r : RECORD
god: integer;
mes: string[10];
den: 1..31;
END;
adres : RECORD
gorod:string[25];
ulica: string[20];
dom, kv :integer;
END;
curs: 1..4;
gruppa : string[5];
END;
var stud: array[1..25] of anketa1;
i: ineger;
BEGIN
for i:=1 to 25 do // ввод данных
begin
readln (stud[i].fio);
readln (stud[i].adres.gorod);
end;
for i:=1 to 25 do // вывод данных
begin
writeln (stud[i].fio);
writeln (stud[i].adres.gorod);
end;
END.