Лабораторная работа: Разработка форматов хранения программ. Структурирование

begin

writeln('введите x[',i,']');

readln(a[i].x);

writeln('введите y[',i,']');

readln(a[i].y);

end;

rio:=ioresult;

if rio<>0 then

begin

writeln('Ошибка ввода. После нажатия ENTER попробуйте еше раз сначала.');

readln;

end

until rio = 0;

{$i+}

end;

procedure povtor(var f:integer; rio:real);

begin

{$i-}

repeat

writeln('1-Да');

writeln('0-Нет');

readln(f);

rio:=ioresult;

if (rio<>0)or(f<>0)and(f<>1) then

writeln('Ошибка ввода. Попробуйте еще раз.');

until (rio=0)and(f=0)or(rio=0)and(f=1);

{$i+}

end;

begin