Запрограммировать добавление участника и его результаты - Turbo Pascal - Ответ 5735377

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
type
  anketa = record
    surname: string[20];
    name: string[15];
    patronymic: string[15];
    height: integer;
  end;
var user: array [1..100] of anketa;
    key_integer,q,choose,i,n: integer;
    key_srting:string;
procedure add_user;
begin
    inc(n);
    writeln('Enter data ', n, 'user = ');
    write(' Enter surname = ');readln(user[n].surname);
    write(' Enter name = ');readln(user[n].name);
    write(' Enter patronymic = ');readln(user[n].patronymic);
    write(' Enter height = ');readln(user[n].height);
end;
procedure seach_user_surname;
begin
  q:=0;
  Write('     Enter surname = ');Readln(key_srting);
  for i:=1 to n do
    begin
      if (user[i].surname = key_srting) then begin Writeln(user[i].surname,' ',user[n].name,' ',user[n].patronymic,' [',user[n].height,']');Inc(q);end;
    end;
  if (q=0) then Writeln('Error.Key it`s not correct.');
end;
procedure seach_user_height;
begin
  q:=0;
  Write('     Enter height = ');Readln(key_integer);
  for i:=1 to n do
    begin
      if (user[i].height = key_integer) then begin Writeln(user[i].surname,' ',user[n].name,' ',user[n].patronymic,' [',user[n].height,']');Inc(q);end;
    end;
  if (q=0) then Writeln('Error.Key it`s not correct.');
end;
procedure seach_user;
begin
  writeln('   1 - seach surname.');
  writeln('   2 - seach height.');
  repeat Readln(choose); until((choose>0) and (choose<3));
  case (choose) of
    1:begin seach_user_surname; end;
    2:begin seach_user_height; end;
  end;
end;
procedure see_user;
var m,k:Integer;
    x:Integer;
    y:string;
begin
  //ñîðòèðîâêà âûáîðà
  for k:=n downto 2 do
    begin
     m:=1;
     for i:=2 to k do if (user[i].height < user[m].height) then m:=i;
      y:=user[m].surname;    user[m].surname:=user[k].surname;       user[k].surname:=y;
      y:=user[m].name;       user[m].name:=user[k].name;             user[k].name:=y;
      y:=user[m].patronymic; user[m].patronymic:=user[k].patronymic; user[k].patronymic:=y;
      x:=user[m].height;     user[m].height:=user[k].height;         user[k].height:=x;
    end;
    for i:=1 to n do
      begin
        Writeln(user[i].surname,' ',user[n].name,' ',user[n].patronymic,' [',user[n].height,']');
      end;
end;
begin
  n:=0;choose:=0;
  while (choose <> 4) do
  begin
    writeln('***1.Add user.');
    Writeln('***2.List user.');
    Writeln('***3.Seach user.');
    Writeln('***4.Exit.');
    write('Enter variant = ');
    repeat Readln(choose); until((choose>0) and (choose<5));
    case (choose) of
      1:begin add_user;end;
      2:begin see_user;end;
      3:begin seach_user;end;
      4:begin Writeln('The End.');readln;Exit;end;
    end;
  end;
  writeln;
  readln;
end.