Mine

program Noname0;
Type irasas = record {sukuria duomenu tipa}
            Vardas : string;
            Pavarde : string;
            Amzius : integer;
            Vidurkis : real;
     end;
var x : boolean;
    i:integer; {meniu pasirinkimas}
    N:integer; {parodo irasu kieki}
    mas:array [1..1000] of irasas; {saugo duomenis}
{_______________________________________________}
Procedure ivesti_irasa;
Begin
    Writeln('Ivedamas irasas numeris ',N+1);
    Writeln('Iveskite varda');
    Readln(mas[N+1].vardas);
    Writeln('Iveskite Pavarde');
    Readln(mas[N+1].pavarde);
    Writeln('Iveskite Amziu');
    Readln(mas[N+1].amzius);
    Writeln('Iveskite vidurki');
    Readln(mas[N+1].vidurkis);
    N:=N+1; {ivedus duomenu tipa padidina vienu daugiau}
End;
{_______________________________________________}
Procedure parodyti_irasus;
    var q:integer; {ciklo for skaitiklis}
Begin
Writeln('Stunentu sarasas');
for q:= 1 to N do
Writeln('Stundetas ',mas[q].vardas,' ',mas[q].pavarde,' kuriam ',mas[q].amzius,' metu ir jo vidurkis ',mas[q].vidurkis);
end;
{_______________________________________________}
Procedure istrinti_irasus;
{_______________________________________________}
begin
N:=0; {pradejus irasu nera}
    While x=false do {praso ivesti reikalinga skaiciu}
begin
        Writeln('Meniu');
        Writeln('Baigti darba spauskite - 0');
        Writeln('Iveskite yrasa - 1');
        Writeln('Parodyti yrasus - 2');
        Readln(i);
    if i=0 then x:=true;
    if i=1 then ivesti_irasa();
    if i=2 then parodyti_irasus();
    if i=3 then istrinti_irasus();
end;
end.