В чем ошибка?

[Кинельски]

У меня не работает выдает ошибку
Вот код
var
g:file of real;
a:integer;
b:real;
begin
a:=strtoint(combobox1.text);
assignfile(f,'ugl.dat');
reset(f);
seek(f,a);
read(f,b); \\суда указывае зеленая стрелка и строка выделяется синим
edit1.text:=strtofloat(b);
closefile(f);
end.

[Пепел Феникса]

какую и на какой строке?

[quit]

Здесь, как бы, форум программистов, а не битва экстрасенсов.. Текст ошибки не плохо было бы посмотреть - это первое.
А второе, когда вставляете код программы, используйте BB-код - кнопка "#", а то не красиво получается...

[Ol'ga_new]

А чему равно b(точнее где запись в Edit1) и с какой целью открыт файл, только для перемещения указателя позиции файла ?

[Кинельски]

фото сообщения

[Кинельски]

В фаил содержит числа от 1 до 5 без точек и запятых, файл бывший текстовый файл с измененым расширением

[Пепел Феникса]

текстовый файл и file of real это разные вещи.
а смена расширения вообще не причем.

[Человек_Борща]

странно:

var 
g:file of real; 
a:integer; 
b:real; 
begin
a:=strtoint(combobox1.text);
assignfile(f,'ugl.dat');
reset(f);
seek(f,a);
read(f,b); \\суда указывае зеленая стрелка и строка выделяется синим
edit1.text:=strtofloat(b); 
closefile(f);
end.

Что такое f?
если это файл, то у вас ошибка:

var 
g:file of real;  //<==Буквы попутали? f и g рядом;)
a:integer; 
b:real;

[Кинельски]

А если заместо f:file of real; писать f:textfile; ,то красным выделяется строка с процедурой seek(f,n); и пишет Incompatible types

[Пепел Феникса]

потому что текстовые файлы читаются построчно, и там уже нужно будет преобразование с текста в real(если надо)
определитесь какой вам нужен файл.