Mit csinál ez a program? Mit csinálnak az egyes részei? Mit csinálnak az adott utasítások? (részletes leírást kérnék)

feladatként kaptunk 3 kész programot , az előző kettőt értettem de ebből szinte semmit nem értek csak az egyszerűket

előre is köszönöm annak aki leírja nekem részletesen!:)

Program hazi;

Uses Crt;

Type gyuruk = Record

faja : String;

fegyvere : String;

jelleme : String;

szerepe : String;

ereje : Integer;

End;

Var f : File of gyuruk;

gy : gyuruk;

Procedure Hozzaad;

Var x : Char;

Begin

ClrScr;

Assign(f,'C:\gyur.dat');

{$I-}

Reset(f);

{$I+}

If IOResult <> 0 Then Begin

Rewrite(f);

End;

Repeat

WriteLn;

WriteLn('Eddig ',Filesize(f),' adat van.');

WriteLn;

WriteLn('Adja meg a fajt:'); ReadLn(gy.faja);

WriteLn('Adja meg a fegyvert:'); ReadLn(gy.fegyvere);

WriteLn('Adja meg a jellemet:'); ReadLn(gy.jelleme);

WriteLn('Adja meg a szerepet:'); ReadLn(gy.szerepe);

WriteLn('Adja meg az erejet(szam):'); ReadLn(gy.ereje);

Seek(f,filesize(f));

Write(f,gy);

WriteLn('Szeretne meg adatot bevinni? (I/N)');

Repeat

x:=ReadKey;

Until x in ['i','I','n','N'];

Until x in ['n','N'];

Close(f);

ReadLn;

End;

Procedure Kiir;

Var db:Integer;

i:Integer;

Begin

ClrScr;

Assign(f,'C:\gyur.dat');

Reset(f);

db:=Filesize(f);

For i:=1 to db do

Begin

Read(f, gy);

WriteLn(i,'. szereplo adatai:');

Write('A[z] ',i,'. szereplo faja:'); WriteLn(gy.faja);

Write('A[z] ',i,'. szereplo fegyvere:'); WriteLn(gy.fegyvere);

Write('A[z] ',i,'. szereplo jellemzo:'); WriteLn(gy.jelleme);

Write('A[z] ',i,'. szereplo szerepe:'); WriteLn(gy.szerepe);

Write('A[z] ',i,'. szereplo ereje:'); WriteLn(gy.ereje);

WriteLn('________________________________');

End;

ReadLn;

End;

Procedure Keres;

Var db:Integer;

i:Integer;

k:String;

van:Integer;

Begin

van:=0;

ClrScr;

Assign(f,'C:\gyur.dat');

Reset(f);

db:=Filesize(f);

Write('K‚rem irja be a keresett szoveget: '); ReadLn(k);

For i:=1 to db do

Begin

Read(f,gy);

if(k=gy.faja) then van:=i;

if(k=gy.fegyvere) then van:=i;

if(k=gy.jelleme) then van:=i;

if(k=gy.szerepe) then van:=i;

End;

if (van>0) then WriteLn('Tal lat van a ',van,' szereplonel!');

ReadLn;

End;

Procedure Tkeres;

Begin

ClrScr;

WriteLn('Fejlesztes alatt!');

ReadLn;

End;

Procedure Modosit;

Begin

ClrScr;

WriteLn('Fejlesztes alatt!');

ReadLn;

End;

Procedure Szamitasok;

Begin

ClrScr;

WriteLn('Fejlesztes alatt!');

ReadLn;

End;

Procedure Torles;

Begin

ClrScr;

WriteLn('Fejlesztes alatt!');

ReadLn;

End;

Procedure Menu;

Var

ch: char;

Begin

Repeat

ClrScr;

WriteLn('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');

WriteLn(' Men ');

WriteLn('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');

WriteLn('1 - éj adat hozz ˇr sa az adat llom nyhoz');

WriteLn('2 - Adatok list z sa a k‚perny‹re');

WriteLn('3 - Egyedi keres‚s az adatok k”zt');

WriteLn('4 - T”bbsz”r”s keres‚s az adatok k”zt');

WriteLn('5 - Adatm˘dosˇt s azonosˇt˘ alapj n');

WriteLn('6 - Sz mˇt sok elv‚gz‚se az adat llom ny adataival');

WriteLn('7 - Adatt”rl‚s azonosˇt˘ alapj n');

WriteLn('8 - Kil‚p‚s');

WriteLn('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');

Repeat

ch:=ReadKey;

Until ch in ['1'..'8'];

Case ch of

'1': Hozzaad;

'2': Kiir;

'3': Keres;

'4': Tkeres;

'5': Modosit;

'6': Szamitasok;

'7': Torles;

End;

Until ch='8';

End;

Begin

Menu;

End.