Ввод данных об учащихся

program Pupil;
type Record_Type = Record {Описание типа записи}
Name : String[10];
SurName : String[20];
Age : Byte;
School : Integer;
Class : Byte;
end;
var
Record_Array : Array[l .. 10] of Record_Type;
Class : Byte;
procedure Input_Data; {Процедура ввода данных в массив записей}
begin
Writeln ('Введите данные №',Number_of_Array,' :');
Write (' Ваше имя ? ');
Readln (Record_Array[Number_of_Array].Name);
Write (' Фамилия ? ');
Readln (Record_Array[Number_of_Array].SurName);
Write (' Ваш возраст ? ');
Readln (Record_Array[Number_of_Array].Age);
Write С Школа ? ');
Readln (Record_Array[Number_of_Array].Class);
Write (' и класс ? ');
Readln (Record_Array[Number_of_Array].School):
Writeln
End;
procedure Write_Data; {Процедура вывода на экран содержимого текущей записи}
begin
with Record_Array[Number of_Array] do
begin
Writeln (' Имя : ',Name);
Writeln (' Фамилия : ',SurName);
Writeln (' Возраст ; ',Age);
Writeln (' Школа : ',School);
Writeln (' Класс : ',Class);
end;
end;
begin {Основная программа}
for Number_of_Array:=l to 10 do Input_Data;
Writeln;Writeln ('Вывожу данные о пятом ученике : ');
Writeln;Number_of_Array:=5;
Write_Data;
Writeln ('Вывожу данные по номеру класса : ');
Writeln;
Writeln (' Введите номер класса : ');
Readln (Class);
for Number_of_Array:=l to 10 do
If Record_Array[Number_of_Array].Class - Class then
Write_Data; end.

program Pupil;
 
{---------------------------------------Описание типа записи}
type
    Record_Type = Record
        Name : String[10];
        SurName : String[20];
        Age : Byte;
        School : Integer;
        ClassNum : Byte;
    end;
 
var
    pupilNumber: integer;
    Record_Array : Array[1..10] of Record_Type;
    ClassNum : Byte;
{---------------------Процедура ввода данных в массив записей}
procedure Input_Data;
begin
    Writeln ('Введите данные №',pupilNumber,' :');
    Write (' Ваше имя ? ');
    Readln (Record_Array[pupilNumber].Name);
    Write (' Фамилия ? ');
    Readln (Record_Array[pupilNumber].SurName);
    Write (' Ваш возраст ? ');
    Readln (Record_Array[pupilNumber].Age);
    Write ( 'Школа ? ');
    Readln (Record_Array[pupilNumber].ClassNum);
    Write (' и класс ? ');
    Readln (Record_Array[pupilNumber].School);
    Writeln;
end;
 
{---------Процедура вывода на экран содержимого текущей записи}
procedure Write_Data;
begin
    with Record_Array[pupilNumber] do
    begin
        Writeln (' Имя : ',Name);
        Writeln (' Фамилия : ',SurName);
        Writeln (' Возраст ; ',Age);
        Writeln (' Школа : ',School);
        Writeln (' Класс : ',ClassNum);
    end;
end;
 
 
{------------------------------------------Основная программа}
begin
    for pupilNumber:= 1 to 10 do Input_Data;
 
    Writeln;Writeln ('Вывожу данные о пятом ученике : ');
    Writeln;
    pupilNumber:= 5;
    Write_Data;
 
    Writeln ('Вывожу данные по номеру класса : ');
    Writeln;
    Writeln (' Введите номер класса : ');
    Readln (ClassNum);
 
    for pupilNumber:= 1 to 10 do
        if(Record_Array[pupilNumber].ClassNum = ClassNum) then Write_Data;
 
    ReadLn();
end.