Pascal klaida

program Stulpai;
type masyvas = array [5..250] of string[1];
var m_stulpai:masyvas;
   duomenys:text;
   i,x,stulpu,z,h,atsakymas:integer;
   y:string[1];
begin
 assign(duomenys, 'duomenys.txt');
 reset(duomenys);
 i:=1;
 stulpu:=0;
 x:=1;
 while x<>0 do
  begin
  read(duomenys, y);
  if length(y)=0
   then x:=0
   else
    begin
    m_stulpai[i]:=y;
    stulpu:=stulpu+1;
    end;
  i:=i+1;
  end;

 h:=2;
 z:=1;
  if stulpu mod 2 = 0
   then
    begin
     while z<>0 do
      begin
      if m_stulpai[h]='+'
       then z:=0
       else atsakymas:=atsakymas + 1;
       h:=h+1;
      end;
      writeln(atsakymas);
    end
   else writeln('-1');
 Readln;
end.

Nesuprantu, jau akim nebematau. Kur čia klaida. Meta "ranges overrun".

apie programavimą tiksliai nenusimanau, bet manau vietoj i,x,stulpu,z,h,atsakymas:integer; reikėtų pabandyt i,x,stulpu,z,h,atsakymas:longint; arba maxlongint

apie programavimą tiksliai nenusimanau, bet manau vietoj i,x,stulpu,z,h,atsakymas:integer; reikėtų pabandyt i,x,stulpu,z,h,atsakymas:longint; arba maxlongint

Ne, nėra tokios didelės reikšmės, kad reikėtų longint. :)

Na padarei tokią klaidą, kad nurodei per siaurus masyvų indeksų intervalus. Tai yra, ši eilutė:

type masyvas = array [5..250] of string[1];

Paprasčiau tariant, su masyvu m_stulpai, kurio indeksas yra 1 arba 2 (t.y. i := 1; ir h:=2;), dirbti negali, nes minimalus indeksas gali būti 5. Paprasčiausia būtų tiesiog nurodyti platesnį intervalą:

type masyvas = array [1..250] of string[1];

O, ačiū :)