Programozás

Srácok, valaki tudna nekem segíteni egy picit? :/
[LINK]

Ugyan Pascal-ban nem mozgok túlzottan otthonosan inkább C#-ban de a kettő precedencia táblázata nagyjából hasonló. Tehát ha jól értelmezem akkor deklaráltál egy rekord típusú tömböt és annak az elemeit szeretnéd kiíratni gondolom konzolba.

Hátha valamennyit tudok segíteni. C#-ban egy a tiédhez hasonló kiíratás így néz ki:
[code]
class tanulók
{
public string név = "";
public int sz_év = 0;
public bool gazdag = false;
public int[] lottó = new int[5];
}
static void Main(string[] args)
{
int i, j;
tanulók[] napló = new tanulók[8];
for (i = 0; i < 8; i++)
{
tanulók rek = new tanulók();
napló[i] = rek;
}
napló[0].név = "X";
napló[0].sz_év = 1975;
napló[0].gazdag = true;
napló[0].lottó[0] = 20;
napló[0].lottó[1] = 11;
napló[0].lottó[2] = 3;
napló[0].lottó[3] = 43;
napló[0].lottó[4] = 75;

napló[1].név = "Y";
napló[1].sz_év = 1990;
napló[1].gazdag = true;
napló[1].lottó[0] = 13;
napló[1].lottó[1] = 50;
napló[1].lottó[2] = 5;
napló[1].lottó[3] = 90;
napló[1].lottó[4] = 21;

napló[2].név = "Z";
napló[2].sz_év = 1999;
napló[2].gazdag = true;
napló[2].lottó[0] = 15;
napló[2].lottó[1] = 45;
napló[2].lottó[2] = 51;
napló[2].lottó[3] = 80;
napló[2].lottó[4] = 28;

napló[3].név = "Q";
napló[3].sz_év = 1998;
napló[3].gazdag = true;
napló[3].lottó[0] = 18;
napló[3].lottó[1] = 49;
napló[3].lottó[2] = 54;
napló[3].lottó[3] = 81;
napló[3].lottó[4] = 22;

ForegroundColor = ConsoleColor.Green;
WriteLine("{0,20}{1,6}{2,7}{3,20}","Név","Sz_év","Vagyon","Lottószámok"😉;
WriteLine();

for (i = 0; i < 8; i++)
{
Write("{0,20}{1,6}{2,7}",napló[i].név, napló[i].sz_év, napló[i].gazdag);
for (j = 0; j < 5; j++)
Write("{0,4}", napló[i].lottó[j]);
WriteLine();
}
WriteLine();
int ossz = 0;
for (i = 0; i < 4; i++)
ossz += 2017 - napló[i].sz_év;
ForegroundColor = ConsoleColor.Red;
WriteLine("A tanulók átlagéletkora" + (ossz / 4)+ "év."😉;

WriteLine();
ForegroundColor = ConsoleColor.Yellow;
WriteLine("program készítője"😉;
ReadKey();
[/code]

Lazarust tanulok jelenleg Pascal nyelven, egy adatbázis-kezelést kéne írnom, de az istenért nem tudom befejezni. Márcsak a tömbelemeket kéne kiírni de nem megy, vki tud segíteni benne?
A program maga pedig eddig van:
VAR n,j,uj:integer;
TYPE Tember=record
nev:string;
varos:string;
fizetes:longint;
end;
Procedure beiras(VAR uj:Tember);
begin
write('Nev:',j,':'😉;
readln(uj.nev);
write('varos:',j,':'😉;
readln(uj.varos);
write('Fizetes:',j,':'😉;
readln(uj.fizetes);
end;
VAR a,i,k:integer;
seged:Tember;
tomb:array[1..20] of Tember;
begin
write('N:'😉;
readln(n);
For j:=1 to n do begin
beiras(tomb[j]);
end;
For j:=1 to n-1 do begin
for k:=2 to n do begin
if tomb[j].nev>tomb[k].nev then
begin
seged:=tomb[j];
tomb[j]:=tomb[k];
tomb[k]:=seged;
end;
end;
end;
readln;
end.