Написать программку, которая подсчитывает количество положительных и отрицательных частей

Var

f: File of Integer;

i,n,k: Byte;

x: Integer;

BEGIN

Assign(f,'1.dat');

Rewrite(f);

Write('Сколько чисел ввести в файл? ');

Readln(n);

k:=0;

Writeln('Введите числа в файл: ');

For i:=1 to n do

begin

Readln(x);

If xgt;0 Then k:=k+1;

Write(f,x);

end;

Clrscr;

If kgt;0 Then

Write(f,1);

Reset(f);

Writeln('Содержимое файла: ');

While not Eof(f) do

begin

Read(f,x);

Write(x,' ');

end;

Close(f);

END

разберись с Кgt; и все заработает как часики.