Даны сведения о животных (коровах): вес в кг, клички, фамилии доярок, удой молока в литрах в день

program cow1;
 
const
  f_name = 'korov_input.txt';
  n = 3;
  ves_min = 1; ves_max = 100;
  udoy_min = 0; udoy_max = 100;
 
type
  korova = record
    klichka: string;
    udoy: real;
    ves: integer;
    doyarka: string;
  end;
  
  cow = array [1..n] of korova;
 
var
  a: cow; f: text;
 
function read_klychka(var klychka: string): boolean;
begin
  repeat
  until not (ord(c) in [65..90, 97..122]);
  if c <> '' then
    read_klychka := a;
end;
 
function read_ves(var ves: integer): boolean;
var
  a: boolean;
begin
  a := true;
  if not a or (ves < ves_min) or (ves > ves_max) then
    read_ves := a;
end;
 
 
function read_udoy(var udoy: real): boolean;
var
  a: boolean;
begin
  a := true;
  if not a or (udoy < udoy_min) or (udoy > udoy_max) then
    read_udoy := a;
end;
 
 
function read_doyarka(var doyarka: string): boolean;
begin
  repeat
  until not (ord(c) in [65..90, 97..122]);
  if c <> '' then
    read_name := a;
end;
 
function read_arr(var a: cow): boolean;
var
  a: boolean;
  i: integer;
begin
  while (i <= n) and a do 
    read_arr := a;
end;
 
function find_max_ves(var a: cow): string;
var
  i: integer;
begin
  
  for i := 1 to n do
end;
 
function find_max_udoy(var a: cow): string;
var
  i: integer;
begin
  
  for i := 1 to n do
end;
 
begin
  if not read_arr(a) then exit;
  close(f);
end.