Программа обработки данных (разобраться с условием)

[Dj_Leff]

Вопрос решен 8-)

[evg_m]

Давно и настойчиво твердят ФОРМАТИРУЙТЕ код
отступы спасут вас.

end  {После этого программа закрывается и не вычисляет данные}
else
begin
  assign(is, fileis);
  reset(is);
  readln(is,n);
  for z:=1 to n do begin
    readln(is,Gkg[z],Gkm[z]);
    readln(is,Vkg[z],Vkm[z]);
    readln(is,D[z]);
    readln(is,V[z]);
  end;
// а вот здесь находятся ваши вычисления
end;
// а здесь они должны быть