Записи, файлы, строки.

type name=(mary, jane, kim, bob, jan,pit,tom,sara,bill,pol);
data=record
male: boolean; {пол:true-муж, false-жен}
height:140..200; {рост}
cost:word; {зарплата}
end;
group = array[name] of data;

function higher(const g: group): name;
var
i: name;
begin
higher:=Low(higher);
while not g[higher].male do
higher:=name(Ord(higher)+1);
for i:=higher to High(i) do
if g[i].male and (g[i].height>g[higher].height) then
higher:=i
end;
 
procedure Fill(var g: group);
var
i: name;
begin
Randomize;
for I:=Low(i) to High(i) do
with g[i] do
begin
male:=Random<=0.5;
height:=Random(200-140+1)+140
end
end;
 
var
g: group;
begin
Fill(g);
WriteLn(Ord(higher(g)));
ReadLn
end.

uses crt;
function countEg(var f:text;var k:integer);
var s:string;
    i,n:byte;
begin
k:=0;
while not epf(f) do
 begin
  readln(f,s);
  n:=0;
  for i:=2 to length(s)do
  if s[i]=s[1] then n:=n+1;
  if n=length(s)-1 then k:=k+1;
 end;

function countEq(var f:text;var k:integer): integer;
var s:string;
    i,n:byte;
begin
assign(f,'C:\Users\TimonCer\Desktop\in.txt');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=0;
  for i:=2 to length(s)do
  if s[i]=s[1] then n:=n+1;
  if n=length(s)-1 then k:=k+1;
 end;
close(f);
end.

uses crt;
function countEg(var f:text;var k:integer);
var s:string;
    i,n:byte;
begin
k:=0;
while not eof(f) do   //  здесь было epf(f)
 begin
  readln(f,s);
  n:=0;
  for i:=2 to length(s)do
  if s[i]=s[1] then n:=n+1;
  if n=length(s)-1 then k:=k+1;
 end;

function countEq(var f:text;var k:integer): integer;
var
 s: string;
 i,k,j,x: byte;
 lit: array[1..30] of char;
begin
 assign(f,'C:\Users\TimonCer\Desktop\in.txt');
 reset(f);
 i:=0;
 while not eof(f) do
  begin
   i:=i+1;
   readln(f,s);
   lit[i]:=s[1];
  end;
 for j:=1 to i do
  for x:=j to i-1 do
   if lit[j] = lit[x+1] then k:=k+1;
 close(f);
 writeln('Êîëè÷åñòâî ñòðîê íà÷èíàþùèõñÿ ñ îäèíàêîâîé ëèòåðû ðàâíî ',k);
end.

function countEq(var f:text;var k:integer): integer;
const
 lit = 'В';
var
 s: string;
 i: byte;
begin
 assign(f,'C:\Users\TimonCer\Desktop\in.txt');
 reset(f);
 i:=0;
 while not eof(f) do
  begin
   readln(f,s);
   if lit = s[1] then i:=i+1;
  end;
 close(f);
 writeln('Количество строк начинающихся с одинаковой литеры равно ',i);
end.

function countEq(var f:text;var k:integer): integer;
var s:string;
i,n:byte;
begin
assign(f,'C:\Users\TimonCer\Desktop\in.txt');
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
n:=0;
for i:=2 to length(s)do
if s[i]=s[1] then n:=n+1;
if n=length(s)-1 then k:=k+1;
end;
close(f);
end.

program EvgeniiSp;
uses Crt;
var
 g: text;
//----------------------
function countEq(var f:text): integer;
 var
  s: string;
  i,k,j,x: byte;
  lit: array[1..30] of char;
 begin
  reset(f);
  i:=0;
  while not eof(f) do
   begin
    i:=i+1;
    readln(f,s);
    lit[i]:=s[1];
   end;
  for j:=1 to i do
   for x:=j to i-1 do
    if lit[j] = lit[x+1] then k:=k+1;
  close(f);
  result:=k;
 end;
//----------------------
begin
 ClrScr;
 assign(g,'C:\Users\TimonCer\Desktop\in.txt');
 writeln('Êîëè÷åñòâî ñòðîê íà÷èíàþùèõñÿ ñ îäèíàêîâîé ëèòåðû ðàâíî ',countEq(g));
end.

for i:=2 to length(s)do
  if s[i]=s[1] then n:=n+1;