Witam mam takie zadanie: wypisz n osób i podziel je na 4 grupy biorąc pod uwage płeć oraz wiek(chłopak do 20 lat, chłopak powyżej 20 lat,dziewczyna do 20 lat , dziewczyna powyzej 20 lat). I tak zrobiłem taki program program pięknie dzieli osoby na grupy , pisze która osoba do której grupy należy i wypisuje najpierw osoby z grupą zerową potem pierwszą drugą i trzecią ale jeszcze muszę zrobić aby Napisało mi przed wypisywaniem tych informacji takie cos:
GRUPA 0
{i tu informacje o osobach}
GRUPA 1
{i tu informacje o osobach}
GRUPA 1
{i tu informacje o osobach}
GRUPA 1
{i tu informacje o osobach}
tego właśnie nie wiem jak zrobic bardzo proszę o pomoc
type
osoba=record
imie:string;
ostatnialitera:string[1];
plec:string;
wiek:integer;
grupa:integer;
group:integer;
end;
tab = array of osoba;
var
x:tab;
c,n,i,j,q,m:integer;
r,h:string;
begin
writeln('Ile jest osob???'); readln(n);
SetLength(x,n);
for i:=1 to n do
begin
writeln;
writeln('Osoba nr ',i,': ');
write('Imie: '); readln(x[i].imie);
write('wiek: '); readln(x[i].wiek);
x[i].ostatnialitera := Copy(x[i].imie,Length(x[i].imie),1); {kopiujesz ostatnią litere z stringu 'imię'}
if ((x[i].ostatnialitera='a') or (x[i].ostatnialitera='A')) then
x[i].plec:='kobieta'
else
x[i].plec:='mezczyzna';
if ((x[i].plec='kobieta') and (x[i].wiek<=20)) then
x[i].grupa:=0;
if ((x[i].plec='kobieta') and (x[i].wiek>20)) then
x[i].grupa:=1;
if ((x[i].plec='mezczyzna') and (x[i].wiek<=20)) then
x[i].grupa:=2;
if ((x[i].plec='mezczyzna') and (x[i].wiek>20)) then
x[i].grupa:=3;
writeln('plec: ',x[i].plec);
writeln('grupa: ',x[i].grupa);
end;
for i:=2 to n do begin
for j:=n downto i do begin
if x[j-1].grupa > x[j].grupa then begin
h:=x[j-1].imie;
x[j-1].imie:=x[j].imie;
x[j].imie:=h;
m:=x[j-1].wiek;
x[j-1].wiek:=x[j].wiek;
x[j].wiek:=m;
r:=x[j-1].plec;
x[j-1].plec:=x[j].plec;
x[j].plec:=r;
q := x[j-1].grupa;
x[j-1].grupa := x[j].grupa;
x[j].grupa := q;
end;
end;
writeln;
end;
for i:=1 to n do
begin
writeln('Osoba nr: ');
writeln('imie: ',x[i].imie);
writeln('wiek: ',x[i].wiek);
writeln('plec: ',x[i].plec);
writeln('grupa: ',x[i].grupa);
writeln;
end;
end.