Типизированные файлы. Паскаль.

[Heming]

Урааааааааа, спасибо большое, вопрос закрыт. Спс, что выручил

[Heming]

Финальный код, кому пригодится

Program lab10;
type citizen=Record
Fam : string[20];
city: string[20];
street:string[20];
house: integer;
flat:integer;
end;

var
s,s1:string;
n:integer;

Procedure ish(m:integer;s:string);
const maxcount=200;
var
f:file of citizen;
data: array [1..MaxCount] of citizen;
i:integer;
begin
assign(f,s);
rewrite(f);
writeln('Введите данные про жителей: ');
writeln;
for i:=1 to m do begin
with data[i] do begin
write('Введите фамилию ');
readln(fam);
write('Введите город ');
readln(city);
write('Введите улицу');
readln(street);
write('Введите дом');
readln(house);
write('Введите квартиру');
readln(flat);
end;
write(f,data[i]);
end;
close(f);
end;

Procedure neighbours(s1:string;m:integer);
const Maxcount=200;
var

f1:file of citizen;
data: array [1..Maxcount] of citizen;
flag: boolean;
ss,ss1,cit,str:string;
fin: text;
k,i,j,hou:integer;
begin

write('Введите название вашего txt-файла ');
readln(ss);
ss1 := ss+'.txt';
assign(f1,s1);
assign(fin,ss1);
reset(f1);
for i:=1 to m do
read(f1, data[i]);

writeln('Введите критерии поиска соседей');
writeln('Город ');
readln(cit);
writeln('Улица ');
readln(str);
writeln('Дом ');
 readln(hou);
rewrite(fin);
for i:=1 to m do
if (data[i].city=cit) and (data[i].street=str) and (data[i].house=hou) then k:=k+1;
if k=1 then begin writeln('По данному адресу проживает только один человек'); writeln(fin,'По данному адресу проживает только один человек' '); end;
if k=0 then begin writeln('По данному адресу нету совпадений');writeln(fin,'По данному адресу нету совпадений '); end;
if k>1 then begin writeln('По данному адресу проживают следущие люди ');writeln(fin,'По данному адресу проживают следущие люди '); end;
for i:=1 to m do
if (data[i].city=cit) and (data[i].street=str) and (data[i].house=hou) then begin writeln(fin,data[i].fam); writeln(data[i].fam); end;

close(f1);
close(fin);
end;

begin
write('Введите название создоваемой базы людей ');
readln(s);
write('Введите препологаемое кол-во людей ');
readln(n);
s1:=s+'.dat';
ish(n,s1);
neighbours(s1,n);
end.

Специально для тех кому пригодится эта прога, поднапряг жопу и все abc-кваказябры прописал тут вручную. Удачи.

Всем еще раз спс, по сути я не мог понять всего одной вещи и на ней стоял целые сутки, хотя это был примитив, но не важно.