Sandro Rodrigues_367994

Não sei se seria o mais certo, no momento  faria assim.
Program Pzim ;varv:array[1..1000] of integer;t,q,n,p,cont,ax,m,i,b,j,vCount,pt,ax1,c:integer;esta:integer;Begin  ClrScr;  esta:=0;  c:=1;  m:=0;  pt:=1;  vCount := 1; //variavel do contador do vetor  cont:=1;  ax:=75;  ax1:=2;  writeln('Informe o tamanho da Ferrovia');  readln(t);  writeln('Informe a quantidade de parada');  readln(q);  p:=t div 75+1;    for i:=1 to q do  begin    writeln('Informe o numero da parada');    readln(v[i]);  end;  for i:=1 to q do//Ordenar o vetor em ordem crescente.  begin    for j:=1 to q do    begin      if(v[j] > v[i])then      begin        b:=v[i];        v[i]:=v[j];        v[j]:=b;      end;    end;  end;  writeln('');  writeln('A rua ferrovia ',p,' paradas');  Writeln('');  for i:=1 to p do //Comparar o valor do vetor com as paradas  begin    while(cont < p+1)do    begin      if(i=c)and(v[vCount]>ax)then      begin        writeln('Parada ',pt,' (',m,' metros - Parada Normal ');        esta:=1;      end else      if(m mod 225=0)and(esta<>1)then      begin        writeln('Parada ',pt,' (',m,' metros - Parada Normal ');        esta:=1;      end else      if(v[vCount]>ax1)and(v[vCount]<ax)and(esta<>1)then      begin        writeln('Parada ',pt,' (',m,' metros - Parada correio ');        vCount := vCount + 1;        esta:=1;      end;      if(esta=0)then      begin        writeln('Parada ',pt,' (',m,' metros - Sem parada ');      end;      esta:=0;      c:=4;      ax:=ax+75;      ax1:=ax1+73;      m:=m+75;      pt:=pt+1;      cont:=cont+1;    end;  end;end.