Ильгиза

Здравствуйте!Пожалуйста помогите найти ошибку в программе.

используя объектный тип ,необходимо описать данные на учеников(фамилия,улица,дом , квартира) , с методом, определяющим ,сколько учеником живет на заданной улице.


к примеру

Иванова Вострецова 45 5
Иванов Мира 148 28
Миронова Мира 147 15
Сидоров Фрунзе 45 5


заданная улица Мира
количество учеников 2

кроме того данные на учеников записать в отдельный файл


Сделала так , но программа не работает должным образом.
program upr1;
type
student=class
fame,street:string;
dom,kvar:integer;
constructor Create(fm,st:string; d,k:integer);
procedure st(var t1:text;var l:integer);
procedure print(fame,street:string;dom,kvar,l:integer);
begin
writeln('Фамилия: ',fame,'Улица: ',street,' Дом: ',dom,' Квартира: ',kvar);
writeln('Количество: ',l);
end;
end;
constructor student.create(fm,st:string; d,k:integer);
begin
fame:=fm;
street:=st;
dom:=d;
kvar:=k;
end;
procedure student.st(var t1:text;var l:integer);
var
n,st:string;
begin
l:=0;
reset(t1);
while not eof(t1) do begin
readln(t1,st);
if pos(n,st)<>0 then l:=l+1;
end;
close(t1);
end;
var s:student;
t: text;
n1,fm,st:string;
l1,d,k,l:integer;
begin
writeln('введите улицу');
readln(n1);
assign(t,'stud.txt');
reset(t);
s:=student.create(fm,st,d,k);
s.st(t,l);
s.print(s.fame,s.street,s.dom,s.kvar,l);
end.



вот текстовый файл

Вложения

stud.txt (335 байт, 569 просмотров)