Lazarus adatábzis kezelést kéne írni, de nem tudom befejezn.
program adatbazis;
VAR n,j: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;
Eddig van me, innen kiirrni kéne márcsak.