Pascal-problemas ar pr.pabeigšanu

[mols123]

Sveiki . Ceru ka kāds varētu palīdzēt man ar man radušos problēmu . Šeit ir man nepieciešamais uzdevums :

Izveidot un aizpildīt masīvu ar ierakstiem, kuri satur šādus laukus:
Menesis – mēneša nosaukums; (ir jau)
Ienakumi – ienākumi attiecīgajā mēnesī; (ir jau)
Izdevumu – izdevumi; (ir jau)

Paredzēt iespēju izvēlēties kādu darbību veikt:
Ievadīt datus (ir jau)
Izvadīt datus (ir jau)
• Atlasīt datus pēc mēneša
• Izvadīt ekrānā ierakstus par rudens mēnešiem

Bet nekādi nesaprotu kā izveidot programmā to datu atlasīšanu un izvadīšanu par rudens mēnešiem . Aptuveni saprotu,kas un kā jādara,bet neizdodas . Iekopēju arī kodu,kas man ir jau izveidots pagaidām . Lūdzu palīdzat kāds .

P.S - Programmu rakstu : Borland Pascal 7.0 (ja tas kautko izsaka) .

uses wincrt;
type dati=record
men:string[12];
ien:real;
izd:real;
end;
var
a:array[1..10] of dati;
i:integer;
m:string;
z:char;
begin
i:=1;
Repeat
ClrScr;
writeln('Iev menesi');readln(a[i].men);
writeln('Iev menesa ienemumus');readln(a[i].ien);
writeln('Iev menesa izd');readln(a[i].izd);
i:=i+1;
Write('Vai turinat datu ievadi? (y/n) '); Readln(z);
until (z='n') or (z='N');
ClrScr;
writeln('Menesis ien izd');
for i:=1 to 3 do begin
writeln(a[i].men,' ',a[i].ien:10:2,' ',a[i].izd:10:2 )
end;
writeln(m);
for i:=1 to 3 do begin
if a[i].men=sept and a[i].men=okt and a[i].men=nov then
writeln(m)
end;

[Ēriks Klotiņš]

datu atlase būtu ~šāda

Kods:

write('Kuru mēnesi atlasīt? ');
readln(men);

for i:=1 to 10 do
if (a[i].men = men) writeln (a[i].....);

izvade pa mēnešiem:

Kods:

for i:=1 to 10 do
if (a[i].men in ['sept', 'oct','nov'] ) writeln (a[i].....);

[mols123]

uses wincrt;
type dati=record
men:string[12];
ien:real;
izd:real;
end;
var
a:array[1..10] of dati;
i:integer;
m:string;
z:char;
begin
i:=1;
Repeat
ClrScr;
writeln('Ievadīt mēnesi (jan;feb;mar;apr;mar;jun;jul;aug;sept;okt;nov;dec):');
readln(a[i].men);
writeln('Ievadīt mēneša ienemumus :');
readln(a[i].ien);
writeln('Ievadīt mēneša izdevumus :');
readln(a[i].izd);
i:=i+1;
Write('Vai turināt ? (y/n) ');
Readln(z);
until (z='n') or (z='N');
ClrScr;
writeln('Mēnesis Ieņēmumi Izdevumi');
for i:=1 to 3 do begin
writeln(a[i].men,' ',a[i].ien:10:2,' ',a[i].izd:10:2 );
end;
writeln('Rudens mēneši : ');
writeln('Mēnesis Ieņēmumi Izdevumi');
for i:=1 to 10 do
begin
if (a[i].men='sept') or (a[i].men='Sept') or (a[i].men='okt') or (a[i].men='Okt') or (a[i].men='nov') or (a[i].men='Nov')
then
writeln(a[i].men,' ',a[i].ien:10:2,' ',a[i].izd:10:2 )
end;
writeln('Kuru mēnesi atlasīt? ');
readln(men);
for i:=1 to 10 do
if (a[i].men = men) writeln (a[i].....);
end.

Izmet kautkādu error : readln(men); - bļauj ka uknown identifier .