Andrey, repeat..until условие не станет равным true.

У магатино оно равно false.

Andrey, Это бесконечный цикл

Magatino, А почему не while true do..?

XakepPRO, Первый цикл я такой делал,а разница в чём будет между ними?

Magatino, если они бесконечные - никакой.

XakepPRO, А теперь ты мне раскажишь как делать переход с одной подпрограммы к другой,если не трудно?за 300 монет

Magatino, program ololo;
begin
  //
end;

program Ololo2;
begin
  //
  Ololo;
end;

XakepPRO, При компилировании выходит ошибка на линии 7,то есть при первом end'е:
end. не найдено

Magatino, Может точку надо поставить вместо точки с запятой?

Naik, Нет,тогда я уже вторую подпрограмму не увижу