Vladimir_S

Дорогая леди, боюсь, проспали Вы своё счастье, ибо за несколько минут отладить такую программу, уверяю Вас, никто не возьмется. У Вас там море ошибок: и тип файлов определен неверно, и ввод организован абсолютно безграмотно, и много чего еще.
Мне очень жаль. Извините. Но надо было раньше думать, а не в последние минуты спохватываться.

AlexZir

Олимпиадные задания для того и даются, чтобы вы их решали самостоятельно.

__________________
Убить всех человеков!

Евгений

Ну может ещё не совсем поздно:

uses crt;
type Trec= record
fam:string;
mesto:string;
koll:integer;
ves:integer;
end;
var F,R:Text;
A:array[1..100] of TRec;
m,t,i,n:integer;
s:string;
begin
Assign(F,'B_in.txt');
Reset(F);
n:=0;
While not Eof(F) do
begin
Inc(n);
Readln(F,A[n].fam);
Readln(F,A[n].mesto);
Readln(F,A[n].koll);
Readln(F,A[n].ves);
end;
Close(F);
Assign(R,'B_out.txt');
Rewrite(R);
repeat
Write('Mesto sledovaniya: ');
Readln(s);
if Length(s)=0 then break;
Writeln(R,' V ',s,' :');
t:=0; m:=0;
for i:=1 to n do
if A[i].mesto=s then
begin
Writeln(R,A[i].fam);
m:=m+A[i].ves;
Inc(t);
end;
if t<>0 then Writeln(R,'Ves = ',m,' kg')
else Writeln(R,'Net passagirov');
Writeln;
until Length(s)=0;
Close(R);
repeat
Write('Familiya : ');
Readln(s);
if Length(s)=0 then break;
for i:=1 to n do
if A[i].fam=s then
Writeln(A[i].fam,' -> ',A[i].mesto);
until Length(s)=0;
Readkey;
end.

Входной файл( B_in.txt) такого вида:
Ivanov
Tula
2
1
Petrov
Kursk
5
2
Sidorov
Ufa
6
4
Suhov
Tula
5
8
Losev
Ufa
2
4