дополните задачу!

[Alexsey1991]

С помощью вашего форума я решил первое предложение своей задачи!решите пожалуйста второе предложение!Любые предложение!пожалуйста!Я не прошу написать код мне нужно хотябы писмено!Заранее спасибо!
вот задача-Сформулировать файл записей <<FREND>> из фамилий, имен и адреса ваших друзей. Используя сформулированный файл вывести друзей проживающих на одной улице.


Program FREND;
Type
zapis=record
name:string[20];
fam:string[30];
ulica:string[45];
dom:integer;
end;
var
ved:array[1..100]of Zapis;
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
writeln('vedite familiyu,imia,ulicu,dom druga');
read(ved[i].fam,ved[i].name,ved[i].ulica,ved[i].dom);
end;
end.

[meravingin]

ключивое слово файл а у вас он нигде даже не описывается в программе, или вы хоити что бы за вас перемисали программу через файл?

[IT-man]

read(ved[i].fam,ved[i].name,ved[i].ulica,ved[i].dom);

- А вот это вот,извините,бред!

[Alexsey1991]

Сообщение от IT-man

read(ved[i].fam,ved[i].name,ved[i].ulica,ved[i].dom);

- А вот это вот,извините,бред!

почему бред?что то опять не правильно сделал?

[Alexsey1991]

Сообщение от meravingin

ключивое слово файл а у вас он нигде даже не описывается в программе, или вы хоити что бы за вас перемисали программу через файл?

Опять что ли не правильно решил?

[Alexsey1991]

Люди помогите пожалуйста!