Определить процентное соотношение здоровых и нуждающихся в лечении детей по заключению указанного в запросе специалиста

Type
 
TChild=record
Fam, Nam, Group, Nev, Oto, Ort, Sto:string;
end;
 
procedure input(o:integer; var list:TChild; var chi,bsto,bnev,bort,boto:integer);
var
  inp:text; i,j:integer; ch:char;
begin
if o=1 then begin
  assign(inp,'input.txt');
  reset(inp);
  end;
 
         read(inp,ch);
       if (ch <> ' ') and (eof(inp) <> true) then CHI:=CHI+1;
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.fam:=list.fam+ch;
         read(inp,ch) ;
       end;
       read(inp,ch);
 
       while (ch <> ' ') and  (eof(inp) <> true) do
       begin
         list.nam:=list.nam+ch;
         read(inp,ch)
       end;
       read(inp,ch);
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.group:=list.group+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       if ch='3' then
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.nev:=list.nev+ch;
         Read(inp,ch);
       end;
 
       if ch='H' then
       begin
       bnev:=bnev+1;
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.nev:=list.nev+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.nev:=list.nev+' ';
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.nev:=list.nev+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.nev:=list.nev+' ';
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
 
         list.nev:=list.nev+ch;
         Read(inp,ch);
       end;
       end;
       read(inp,ch);
 
 
       if ch='3' then
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.oto:=list.oto+ch;
         Read(inp,ch);
       end;
 
       if ch='H' then  begin boto:=boto+1;
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.oto:=list.oto+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.oto:=list.oto+' ';
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
 
         list.oto:=list.oto+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.oto:=list.oto+' ';
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.oto:=list.oto+ch;
         Read(inp,ch);
       end;
       end;
       read(inp,ch);
 
 
       if ch='3' then
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.ort:=list.ort+ch;
         Read(inp,ch);
       end;
 
       if ch='H' then  begin bort:=bort+1;
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.ort:=list.ort+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.ort:=list.ort+' ';
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.ort:=list.ort+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.ort:=list.ort+' ' ;
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
 
         list.ort:=list.ort+ch;
         Read(inp,ch);
       end;
       end;
 
 
      read(inp,ch);
 
       if ch='3' then
       begin
       list.sto:=list.sto+ch;
       repeat
       Read(inp,ch) ;
         list.sto:=list.sto+ch;
 
         until eoln(inp)=true;
         end;
 
       if ch='H' then begin bsto:=bsto+1;
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.sto:=list.sto+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
 list.sto:=list.sto+' ';
 
       while (ch <> ' ') and (eof(inp) <> true) do
       begin
         list.sto:=list.sto+ch;
         Read(inp,ch);
       end;
       read(inp,ch);
 
       list.sto:=list.sto+' '+ch;
 
 
       repeat
         read(inp,ch);
         list.sto:=list.sto+ch;
         until eoln(inp) =  true
 
       end;
 
 
 
  end;
 
  procedure sp(p,i:integer; b:TChild; var x:integer);
  begin
  if i=1 then begin
    writeln('‚выберите группу ');
    writeln('1.младшая');
    Writeln('2. ‘средняя);
    writeln('3. ‘старшая');
    readln(p);
    end;
    x:=p;
 
    if ((p=1)or(x=1)) and (b.group='MJlADIIIA9') then writeln(b.fam,' ',b.nam);
    if ((p=2)or(x=2)) and (b.group='CPEDH99') then writeln(b.fam,' ',b.nam);
    if ((p=3)or(x=3)) and (b.group='CTAPIIIA9') then writeln(b.fam,' ',b.nam);
  end;
 
 
  procedure st(p,i,chi,bsto,bnev,bort,boto:integer; b:TChild; var x:integer);
  begin
   if i=1 then begin
  writeln('выберете специалиста');
  Writeln('1. неврапотолог');
  writeln('2. оталоринголог');
  writeln('3. ортопед');
  writeln('4. ‘стоматолог');
  readln(p);
 
   if p=1 then write('нуждаются в лечении - ',(bnev/chi)*100:3:3,'% здоровы - ',100-(bnev/chi)*100:3:3,'%');
   if p=2 then write('нуждаются в лечении - ',(boto/chi)*100:3:3,'% здоровы - ',100-(boto/chi)*100:3:3,'%');
   if p=3 then write('нуждаются в лечении  - ',(bort/chi)*100:3:3,'% здоровы - ',100-(bort/chi)*100:3:3,'%');
   if p=4 then write('нуждаются в лечении  - ',(bsto/chi)*100:3:3,'% здоровы - ',100-(bsto/chi)*100:3:3,'%');
 
  end;
  end;
 
  procedure casere(p,o,i,chi,bsto,bnev,bort,boto:integer; b:TChild; var z,x:integer);
  begin
  if i=1 then begin
    writeln('введите инструкции.') ;
    writeln('1. получить список группы') ;
    writeln('2. получить статистику');
    readln(z);
    end;
    if (z=1) or (o=1) then sp(p,i,b,x);
    if (z=2) or (o=2) then st(p,i,chi,bsto,bnev,bort,boto,b,x);
   end;
 
 
 
 
var
 
b:array[1..100]of TChild;
i,z,o,p,x,chi,bnev,bort,bsto,boto:integer;
begin
 
  for i:=1 to 100 do
  begin
      input(i,b[i],chi,bsto,bnev,bort,boto);
  end;
 
  for i:=1 to 100 do
  begin
         casere(p,o,i,chi,bsto,bnev,bort,boto,b[i],z,x);
o:=z;
p:=x;
end;
 
readln;
end.