Файлы

[_Hanter_]

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

Заданий файл цілих чисел. Створити новий файл, який створює групи однакових чисел, якщо такі є.

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.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

оффтоп

не смущает, что форум в домене .RU и что здесь общепринятый язык - русский?!

[_Hanter_]

что некто не может помочь???

[IT-man]

не по теме
_Hanter_, Serge_Bliznykov как бы намекает что нужно задания на Русский переводить

[_Hanter_]

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