czy mógłby mi ktos podpowiedzieć jak ja mam zabezpieczyć ten program .Dziękuję i pozdrawiam :) nie potrafię zrobić do niego komentarzy
PROGRAM Rekordy;
USES Crt;
TYPE
Dane = RECORD
imie:STRING[10];
nazwisko:STRING[20];
wiek:INTEGER;
end;
const
n=3;
VAR
Tablica: ARRAY[1..n] OF Dane;
Plik:File OF Dane;
Osoba:Dane;
i,b:INTEGER;
a:STRING[10];
d:INTEGER;
l,q:CHAR;
BEGIN
REPEAT
FOR i:=1 TO n DO
BEGIN
WRITELN('Osoba:',i);
WRITELN('Podaj imie');
READLN(Tablica[i].imie);
WRITELN('Podaj nazwisko');
READLN(Tablica[i].nazwisko);
WRITELN('Podaj wiek');
READLN(Tablica[i].wiek);
end;
WRITELN;
WRITELN('Osoby Dorosłe:');
FOR i:=1 TO n DO
BEGIN
IF Tablica[i].wiek>=18 THEN
WRITELN (Tablica[i].imie,' ',Tablica[i].nazwisko,' ',Tablica[i].wiek);
end;
WRITELN;
WRITELN('Dzieci do 3 lat:');
FOR i:=1 TO n DO
BEGIN
IF Tablica[i].wiek<=3 THEN
WRITELN (Tablica[i].imie,' ',Tablica[i].nazwisko,' ',Tablica[i].wiek);
end;
WRITELN;
WRITELN('Ewy do lat 3:');
FOR i:=1 TO n DO
BEGIN
IF ((Tablica[i].wiek<=3) AND (Tablica[i].imie='Ewa') OR (Tablica[i].wiek<=3) AND (Tablica[i].imie='ewa')) THEN
WRITELN (Tablica[i].imie,' ',Tablica[i].nazwisko,' ',Tablica[i].wiek);
end;
WRITELN;
WRITELN('Osoby których nazwisko zaczyna si(c) na liter(c) "N":');
a:=Tablica[i].nazwisko;
d:=length(a);
l:='N';
b:=d-(d-1);
FOR i:=1 TO n DO
BEGIN
IF Tablica[i].nazwisko[b]=l THEN
WRITELN (Tablica[i].imie,' ',Tablica[i].nazwisko,' ',Tablica[i].wiek);
end;
WRITELN;
WRITELN('Jeľeli chcesz kontynuowa† nacisnij x jeśli nie y');
q:=readkey;
until((q='y') OR (q='Y'));
clrscr;
READLN
END.