PROGRAM FindTown;
var input:text;
     s,Find:string;
begin
 assign(input,'c:bpworkinput.txt');
 reset(input);
 ReadLn(Find);
 While not EOF(input) do
   begin
    ReadLn(input,s);
    if pos(Find,s)<>0 then {Если нужно не любое совпадение, а именно с начала, то кажется =1}
       WriteLn(s)
   end;
 close(input)
end.

PROGRAM FindTown;
Uses Crt;
var input:text;
s,Find:string;
begin
     ClrScr;
     GotoXY(10,10);
     Write('Введи название города => ');
     assign(input,'input.txt');
     reset(input);
     ReadLn(Find);
     While NOT EOF (input) do
     BEGIN
     ReadLn(input,s);
     if POS(Find,S)=1 then
     GotoXY(10,20);
     WriteLN(s);
     END;
     close(input);
     Readln;
end.

Uses Crt;
Label 1;
Var
     FileTown:file of string;
     Town,Town1:string;
     i:integer;
     ch:char;
Begin
     {Запись городов в файл}
     TextBackGround(0);TextColor(15);ClrScr;
     Assign(FileTown,'town.txt');
     Rewrite(FileTown);
     For i:=1 To 10 do
     Begin
     Write('Введите название ',i,' города  => ');
     Readln(Town);
     Write(FileTown,Town);
     end;
     Close(FileTown);
     Write('Нажмите <Enter>');
     repeat
     ch:=ReadKey;if ch=chr(13) then
     until ch=chr(13);
     {Чтение городов из файла}
1:      TextBackGround(0);TextColor(15);ClrScr;
     Assign(FileTown,'town.txt');
     Reset(FileTown);
     Write('Введите название города => ');
     Readln(Town1);
     while not EOF(FileTown) do begin
     Read(FileTown,Town);
     If pos(Town1,Town)=1 Then BEGIN
     SEEK(FileTown,-1);
     Writeln(Town);
     end;end;
     Close(FileTown);
     Write('Нажмите <Enter> или <Esc>');
     repeat
     ch:=ReadKey;if ch=chr(13) then begin Goto 1;end;
     if ch=chr(27) then until ch=chr(27);
End.

PROGRAM FindTown;
var input:text;
s,Find:string;
begin
assign(input,'c:bpworkinput.txt');
reset(input);
ReadLn(Find);
While ((not EOF(input))and(pos(Find,s)<>1)) do
 begin
  ReadLn(input,s);
  if pos(Find,s)<>0 then {Если нужно не любое совпадение, а именно с начала, то кажется =1}
 WriteLn(s)
 end;
close(input)
end.

Uses Crt;
lABEL 1;
Var
     find:string;
     s:string;
     input:text;
     a,a1:text;
     c:array [1..10] of string;
     c1:array [1..10] of integer;
     i:integer;
Begin
assign(input,'INPUT.txt');
reset(input);
Write('Введите город => ');
ReadLn(Find);
While ((not EOF(input))and(pos(Find,s)<>1)) do
 begin
  ReadLn(input,s);
  if pos(Find,s)<>0 then
  wRITELN(S);
 end;
 close(input);
     Assign(a,'summa.txt');
     Reset(a);
     Assign(a1,'input.txt');
     Reset(a1);
     For i:=1 To 10 Do
     Begin
     READLN(A,C1[I]);
     Readln(A1,c[i]);
     END;
     For i:=1 To 10 Do
     Begin
     iF S=C[I] tHEN wRITELN('Город ',C[I],' сумма ',C1[I]);
     END;
     Close(a);
     Close(a1);
Readln;
End.

Uses Crt;
LABEL 1;
Var
     FileTown,FileSumm:text;
     ch:char;
     i,Summ:longint;
     Town,s:string;
     Summ1:array [1..10] of longint;
     Town1:array [1..10] of string;
Begin
1:      ClrScr;
     Assign(FileTown,'town.dat');
     Reset(FileTown);
     Write('Введите город => ');
     Readln(Town);
     While ((not EOF(FileTown))and(pos(Town,s)<>1)) do begin
     Readln(FileTown,s);
     If pos(Town,s)<>0 then begin
     end;end;
     Close(FileTown);
     Assign(FileTown,'town.dat');
     Reset(FileTown);
     Assign(FileSumm,'summ.dat');
     Reset(FileSumm);
     For i:=1 To 10 Do Begin
     Readln(FileTown,Town1[i]);
     Readln(FileSumm,Summ1[i]);
     if s=Town1[i] then begin
     Write(Town1[i],' => ');
     Writeln(Summ1[i]);
     Write('Введите новую сумму => ');
     Readln(Summ1[i]);
     end;end;
     Close(FileSumm);
     Close(FileTown);
     Assign(FileSumm,'summ.dat');
     Rewrite(FileSumm);
     For i:=1 To 10 Do Begin
     Writeln(FileSumm,Summ1[i]);
     end;
     Close(FileSumm);
     Write('Нажмите <Enter>');
     repeat
     ch:=ReadKey;if ch=chr(13) then begin Goto 1;end;
     if ch=chr(27) then until ch=chr(27);
End.

PROGRAM FindTown;
var
input,f2:text;
s,Find:string;
i,g:integer;
begin
assign(input,'c:bpworkfile1.txt');
reset(input);
ReadLn(Find);
i:=0;
While ((not EOF(input))and(pos(Find,s)<>1)) do
  begin
  ReadLn(input,s);
  i:=i+1;
  if pos(Find,s)<>0 then {Если нужно не любое совпадение, а именно с начала, то кажется =1}
 WriteLn(s)
 end;
close(input)
assign(input,'c:bpworkfile2.txt');
assign(f,'c:bpworkfile3.txt);
rewrite(f)
reset (input);
writeln('Введите новую сумму');
readln(Find);
for g:=1 to i-1 do begin
                              readln(input,s)
                              writeln(f,s)
                            end;
readln(input,s);
writeln('Старое число    ',s);
writeln(f,Find);
while eof(input) do begin
                                 readln(input,s)
                                 writeln(f,s)
                               end;
close(f);
close(input);
assign(input,'c:/bp/work/file2.txt');
assign(f,'c:bp/work/file3.txt');
rewrite(input);
reset(f);
while eof(f) do begin
                          readln(f,s);
                          writeln(input,s);
                        end;
end.

While Not Eof(input) Do
Begin
Readln(input,s);
Writeln(f,s);
End;

PROGRAM FindTown;
Uses Crt;
Label 1;
Var
     input,f:text;
     s,find:string;
     i,g:integer;
     ch:char;
Begin
1:      ClrScr;
     Assign(input,'file1.txt');
     Reset(input);
     Write('Введите название города  => ');
     Readln(find);
     i:=0;
     While ((Not Eof(input))And(Pos(find,s)<>1)) Do
           Begin
           ReadLn(input,s);
           i:=i+1;
           If Pos(find,s)<>0 Then
           Writeln(s);
           End;
     Close(input);
     Assign(input,'file2.txt');
     Assign(f,'file3.txt');
     Rewrite(f);
     Reset(input);
     Write('Введите новую сумму => ');
     Readln(find);
     For g:=1 To i-1 Do
           Begin
           Readln(input,s);
           Writeln(f,s);
           End;
     Readln(input,s);
     Writeln('Старая сумма  => ',s);
     Writeln(f,find);
     While Not Eof(input) Do
           Begin
           Readln(input,s);
           Writeln(f,s);
           End;
     Close(f);
     Close(input);
     Assign(input,'file2.txt');
     Assign(f,'file3.txt');
     Rewrite(input);
     Reset(f);
     While Not Eof(f) Do
           Begin
           Readln(f,s);
           Writeln(input,s);
           End;
     Close(f);
     Close(input);
     Write('Нажмите <Enter> - для продолжения или <Esc> - для выхода');
     Repeat
     ch:=ReadKey;If ch=Chr(13) Then Begin Goto 1; End;
     If ch=Chr(27) Then Until ch=Chr(27);
End.