Файлы в Паскале

[_Hanter_]

написал програму, но она не работает. Помогите исправить

Задан файл целих чисел. Создать новый файл, кокой создает групы
одинаковых чисел, если такые есть.

[CODE]
var f:file of real;
a:array [1..100] of real;
x: real;
c:char;
k,l,i:byte;
begin
assign(f,'f.dat');
rewrite(f);
repeat
writeln('вв.число');
readln(x);
write(f,x);
writeln('вв.0,якщо треба припинити введення, інакше 1');
readln(c);
until c='0';
end.
reset(f);i:=0;
while not eof(f) do
begin
inc(i);
read(f,a[i]);{У масив зчитуємо елементи файлу}
end;
for k:=1 to i-1 do{Впорядковуємо масив}
for l:=k+1 to i do
if a[k]>a[l] then
begin
x:=a[k];
a[k]:=a[l];
a[l]:=x;
end;
rewrite(f);{У файл з самого початку переписуємо елементи масиву}
for k:=1 to i do
write(f,a[k]);
reset(f);
while not eof(f) do
begin
read(f,x);
writeln(x);
end;
end.
[/СODE]