Записи

[Nightt]

поправьте пожалуйста

Даны результаты переписи населения. Определить фамилии, имена и подсчитать общее число жителей, родившихся после 2000 года.

program OAO;
uses crt;
const n=10;
type jitel=record
nomer:integer;
data_pojdeniya:string[10];
fio:string[40];
adres:string[30];
end;
mas=array[1..n] of jitel;
var v:mas;i,k,nn:integer; s:string;
begin
clrscr;
write('vvedite kol=');readln(nn);
for i:=1 to nn do
begin
write('vvedite nomer ',i,' jitelya=');readln(v[i].nomer);
write('vvedite daty pojdeniya ',i,' jitelya=');readln(v[i].data_pojdeniya);
write('vvedite fio ',i,' jitelya=');readln(v[i].fio);
write('vvedite adres ',i,' jitelya=');readln(v[i].adres);
end;
write('kakya data pojdeniya vas interecyet');readln(s);
k:=0;
for i:=1 to nn do if v[i].data_pojdeniya[1]='2000' then begin with v[i] do begin
write(nomer, ' ' ,data_pojdeniya,'');
writeln(fio, ' ' ,adres); end;
k:=k+1; end;
write('kol-va jitelei c datoi na 2000',s,'=',k);
readln;
end.