Всем привет! Если есть кто в програмировании разбирается помогите разобраться с моим кодом для курсача.

Вот фрагмент программы где ошибка выскакивает Error in statement

begin { Главная программа }
r_min:=0;
srednee:=0;
Writeln('Введите размер популяции');
read(popsize);
{размер популяции}
lchrom:=20;
{число битов на один кодируемый параметр}
Writeln('Введите максимальное число поколений');
read(maxgen);
{максимальное число поколений}
pmutation:=0.01;
{вероятность скрещивания}
pcross:=0.9;
{вероятность мутации}
{Инициализация генератора случайных чисел}
randomize;
{Инициализация счетчиков}
nmutation := 0;
ncross := 0;
initpop;
statistics (popsize, max, avg, min, sumfitness, oldpop);
gen:= 0; {Установка счетчика поколений в 0}
repeat {Главный итерационный цикл}
gen:= gen + 1;
generation;
statistics(popsize, max, avg, min, sumfitness, newpop);
oldpop:= newpop;
{переход на новое поколение }
writeln('min= ',min);
repeat
r_min:=R_min + min;
inc (srednee);
until (gen >= maxgen);
r_min:= r_min / srednee;
writeln('sre= ',r_min);
readln;
readln;
end. {End главной программы}

Курсор становиться на строчке: end. {End главной программы}

repeat (начало цикла с постусловием) имеется два, а until (завершение цикла с постусловием) имеется один. т.е. к окончанию программы первый цикл не завершен, поэтому и выдается ошибка.

А как это дело завершить не подскажешь? Я просто в прогамировании не очень силен....

ЗА ПРМОЩЬ ЗАПЛАЧУ!

есть клавиша хорошая Шифт F8 пошагово увидишь как идет программа, что собирает и где умирает. Ты переемнные не завел даже, конечно работать будет но прогу твою случайно сломать как 2 пальца, Тусур все таки, надо как по мантре Скинь код юлокнотом, пройдусь посмотрю чего ты хочешь получить.

__________________
Суицид это не выход…

Вот блокнотик
Код Информ.txt

Посмотрел, слишком объемна програмка, к тому же я не разу не раработал над той задачей которую тебе поставили, мне сложно определить где ошибка. Извиняй, помочь не смогу.

__________________
Суицид это не выход…