процедуры

[тиму]

помогите срочно!!! я тут две программы обьеденил и по отдельности они работают а так нет((
#

uses crt;
procedure stepen;
var
  n: real;
begin
clrscr;
  write('Введите число n: ');
  readln(n);
  repeat
    n:=n/5;
  until n<=1;
  writeln(frac(n)=0);
end;
procedure posledovatelnost;
var
  i, n, x, max: integer;
 
begin
clrscr;
  Write('Введите длину последовательности: ');
  ReadLn(n);
  max := -MAXINT - 1;
  WriteLn('Введите последовательность из ', n, ' целых чисел: ');
  for i := 1 to n do
  begin
    ReadLn(x);
    if x > max then
      max := x
  end;
  WriteLn('MAX = ', max)
end;
var s:char;
begin
repeat
clrscr;
writeln('Выберите действие');
writeln('1-stepen');
writeln('2-posledovatelnost');
writeln('другое-выход');
readln(s);
case s of
'1':begin
stepen
end;
'2':begin
posledovatelnost
end;
else
begin
writeln('Программа завершена');
exit;
end;
end;
until not(s in ['1','2']);
end.

[Вадим Мошев]

Что значит "нет"? Что пишут? Ошибки? Неверные результаты? Привыкайте анализировать и исправлять по возможности ошибки самостоятельно.

[тиму]

Сообщение от Вадим Мошев

Что значит "нет"? Что пишут? Ошибки? Неверные результаты? Привыкайте анализировать и исправлять по возможности ошибки самостоятельно.

все понял свою ошибку извините! программа работает

[Вадим Мошев]

Тогда закрою тему. Если будут вопросы, создайте новую.