работа с файлом

[DinamoBrynsk]

считываю из файла так:

while not eof(f) do
  begin
  readln(f,a1);
  if length(a1)=2 then
  r1[i]:=strtoint(a1[2])
  else r[i]:=strtoint(a1);
  i:=i+1;
  end;

Содержимое файла числа от -9 до 9:
1
2
3
4
-1
-2
-3
-4
Нужно занести в один массив положительные элементы в другой отрицательные. С положительными все нормально, а вместо отрицательных заносит какие-то громадные значение. Подскажите ошибку

[SERG1980]

delphi или pascal

[Stilet]

А попробуй сделать переменку а и оба массива целочисленной и тогда

while not eof(f) do
  begin
  readln(f,a1);
  if a1>0 then
   r1[i]:=abs(a1);
  else 
   r[i]:=a1;
  i:=i+1;
  end;

помоему readln всетки умеет распознавать сама число ли это

[DinamoBrynsk]

делфи, нет не распознает, тип string

[Serge_Bliznykov]

1) readln(f, ЧисловаяПеременная)
всё таки распознаёт число! Хоть в Pascal, хоть в Delphi

2) код с преобразованием у Вас жуткий! (я бы даже сказал в корне неверный! (напишите в файле +1 - поймёте, что я имею в виду),
но ошибка вот тут:

  r1[i]:=strtoint(a1[2])
  else r[i]:=strtoint(a1);
  i:=i+1;

с чего Вы решили, что ОДНОЙ переменной Вам хватит для ДВУХ массивов?!?!
можно сделать примерно так:

var One, K : integer;
...
i1 := 0;
i2 := 0;
while not eof(f) do
  begin
    readln(f,a1);
    Val(a1, One, K);
    if K=0 then {значит прочитали ЧИСЛО}
       if One<0 then begin
           inc(i1);
           r1[i1] := abs(One)
       end
       else begin
           inc(i2);
           r[i2] := One;
       end;
  end;