Не могу справица

[SeRhy]

в файле записаны числа 1-я - номер 2-я - количество, 3-я - номер 4-я - количество итд... Мне нужно узнать максимальное количество... Код я написал но с ошибкой которую не могу найти.

[Stilet]

но с ошибкой которую не могу найти.

Прикольно, заранее знать что с ошибкой...
Показывай код то... Не стесняйся.

[SeRhy]

Код в паскале. Не смейтесь пожалуйста с моего творения))))

program n3;
var p,m,maxp,maxm:integer;
f:text;
begin
maxp:=0;
maxm:=0;
assign(f,'market.in');
reset(f);
while not seekeof(f) do
begin
readln(f,p,m);
if m>maxm then
begin
maxm:=m;
maxp:=p;
end;
end;
close(f);
write(maxp);
end.

[_Dmitry]

Ошибка здесь: readln(f,p,m);
из текстового файла можно прочесть только строку текста, затем выделить из нее участки, содержащие числа, затем преобразовать эти участки строк в цифры p,m: integer

[Stilet]

из текстового файла можно прочесть только строку текста

Неправда.

while not seekeof(f) do

Просто while not eof(f) do

Так а какая ошибка то? Текст ошибки можеш привести или у тебя просто не считает корректно?
т.е. как по мне это вполне должно работать, если файл организован правильно.
Как файл то выглядит внутри?

[SeRhy]

Нвутри файла числа записаны в один ряд через пробел.
Я исправил все что вы мне написали но всеравно появляется ошибка(

[Slovinsky]

Нвутри файла числа записаны в один ряд через пробел.

Тогда зачем используете readln? Он читает до перевода строки, естественно получаете ошибку. Либо пишите в файле с новой строки, либо используйте read вместо readln.

[SeRhy]

Я все исправил теперь код выглядит так:
program n3;
var p,m,maxp,maxm,cod:integer;
f:text;
ps,ms:string;
begin
maxp:=0;
maxm:=0;
assign(f,'market.in');
reset(f);
while not eof(f) do
begin
read(f,ps,ms);
val(ps,p,cod);
val(ms,m,cod);
if m>maxm then
begin
maxm:=m;
maxp:=p;
end;
end;
close(f);
writeln(maxp);
end.

И всеравно появляется ошибка(

[Stilet]

И всеравно появляется ошибка(

КАКАЯ????!!!!

[SeRhy]

"Не правильная команда. Невозможно загрузить поддержку VDM IPX\SPX"