Составить программу для обработки таблицы сведений о городах.

program p7;
  const n=5;
  type 
   ttoun=record
         name:string[20];
         kod:integer;
         kold:real;
         end;
   ta=array[1..n] of ttoun;
 var
     a:ta;
     zk:integer;
     fname:string;
procedure input_mas(var a:ta);
{создание массива}
  var i:integer;
begin 
  for i:=1 to n do
    begin
      writeln('Введите название города');
      readln(a[i].name);
      writeln('Введите код города');
      readln(a[i].kod);
      writeln('Введите количество ин');
      readln(a[i].kold);
      end;
  end;
procedure input_masf
{Заполнение массива из памяти}
  (var a:ta; fname:string);
  var t:integer;
  f:text;
   begin assign(f, fname);
         reset(f);
         while not eof(f) do
         with a[i] do
           begin
             readln(n(f,nane));
             readln(f,kod);
             readln(f,kold);
           end;
           end;
procedure output_mas (var ta);
  {Вывод массива на екран}
  var i:integer;
begin
   for i:=1 to n do
     with a[i] do
       writeln(name:ts, kod:0, kold:6:1);
end;
function findname(var a:ta; key :integer):string;
{поиск города по коду}
var 
  i:integer;
  s:string;
  k:boolean;
    begin 
      k:=false;
        for i:=1 to n do
          if key=a[i].kod then 
            begin 
               s:=a[i].name;
               k:=true;
               brak;
            end;
     if not k then
     findname:=s;
    end;
begin {mein program}
  writeln('Введите k , если ввод с клавиатуры или f если ввод из файла');
  readln(c);
  case c of
  k:input_mas(a);
  writeln('Введите имя файла для ввода');
  readln(fname);
  input_mas(fa:fname);
  end;
  output_mas(a);
  writeln('Введите код для поиска');
  read(zk);
  writeln('Город с кодом,'zk,');
  findname(a,zk);
  writeln('Среднее число жителей')
  srg(a):6:2);
  sort_mas(a);
  output_mas(a);
  end.

program p7;
uses crt;
const n=5;
type ttoun=record
           name:string[20];
           kod:integer;
           kold:real;
           end;
     ta=array[1..n] of ttoun;
var  a:ta;
     zk:integer;
     w:char;
     sr:real;
procedure Input_mas(var a:ta;var sr:real);
{создание массива}
var i:integer;
begin
sr:=0;
for i:=1 to n do
 begin
  writeln('Введите название города ',i);
  readln(a[i].name);
  writeln('Введите код города число из 3 цифр');
  readln(a[i].kod);
  writeln('Введите количество жителей, тыс.чел.');
  readln(a[i].kold);
  sr:=sr+a[i].kold;
 end;
sr:=sr/n;
clrscr;
end;
 
procedure Output_mas;
{Вывод массива на екран}
var i:integer;
begin
writeln('------------------------------------------------');
writeln('|  Название города  | Код |  Кол. жителей, тыс.|');
writeln('------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('| ',name);
  gotoXY(21,whereY);write('|',kod:5);
  gotoXY(27,whereY);write('|',kold:14:1);
  gotoXY(48,whereY);writeln('|');
 end;
writeln('------------------------------------------------');
end;
 
procedure findname;
{поиск города по коду}
var key,i:integer;
    k:boolean;
begin
writeln('Введите код города:');
read(key);
k:=false;
i:=1;
while(i<=n)and not k do
if a[i].kod=key then
 begin
  k:=true;
  write(a[i].name);
  end
else i:=i+1;
if not k then writeln('Города с таким кодом нет');
readln
end;
 
procedure Sort(var a:ta);
var i,j:integer;
     x:ttoun;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].name>a[j].name then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
 
begin {mein program}
Input_mas(a,sr);
Sort(a);
Output_mas;
writeln('Среднее число жителей в городах=',sr:0:1);
repeat
writeln('Искать город по коду? Y/y - да, другое - нет');
readln(w);
if w in ['Y','y'] then findname
else exit;
until not(w in ['Y','y']);
end.