Вывести на экран каких чисел больше (положительных или отрицательных)

uses crt;
var f:text;
    a,kp,ko:integer;
    name:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
kp:=0;ko:=0;
while not eof(f) do
 begin
  read(f,a);
  if a>0 then kp:=kp+1;
  if a<0 then ko:=ko+1;
 end;
close(f);
writeln('Положительных=',kp,'  отрицательных=',ko);
if kp>ko then write('Положительных больше')
else if ko>kp then write('Отрицательных больше')
else write('Положительных и отрицательных поровну');
readln
end.

uses crt;
var f:file of integer;
    a,kp,ko:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
write('a=');
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Содержание исходного файла:');
kp:=0;
ko:=0;
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>0 then kp:=kp+1;
  if a<0 then ko:=ko+1;
 end;
writeln;
close(f);
reset(f);
writeln('Положительных=',kp,'  отрицательных=',ko);
if kp>ko then write('Положительных больше')
else if ko>kp then write('Отрицательных больше')
else write('Положительных и отрицательных поровну');
readln
end.

program xx;
function itog(a,b:integer):Integer;
  begin
  if a=b then itog:=0
 
  else if a<b then itog:=1
 
  else itog:=- 1;
 
  end;
 
 
 
 
 var f:file of Integer;
 
 g,n,s,count,count2:Integer;
begin
  count:=0;
  count2:=0;
  n:=0;
Writeln('write number or ctrl-z');
Assign(f,'myText.txt');
 Rewrite(f);
while not Eof do
begin
  read(s);
  write(f,s);
end;
 Closе(f);
Reset(f);
while not Eof(f)do
begin
 read(f,s);
 if s<0 then Inc(count)
 else Inc(count2);
 end;
n:=itog(count,count2);
   Seek(f,FileSize(f));
 Write(f,n);
Сlose(f);
reset(f);
while not Eof(f) do
begin
read(f,s);
write(s,' ');
end;
Close(f);
 readln;
end.

  Assign(f,'myText.txt');
  Rewrite(f);
  ...
  Close(f); { не нужно }
  Reset(f); { можно сразу, без Close(f) }
  ...
  Close(f); { не нужно }
  Reset(f); { можно сразу, без Close(f) }
  ...
  Close(f); { тут нужно }