Подпрограммы с параметрами

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, windows;
var
  Phrase: string;
  NumRepeat: integer;
 
  procedure RepeatPhrase(Phrase: string; NumRepeat: integer);
  var
    i: integer;
  begin
    for i := 1 to NumRepeat do
      WriteLn(i, ': ', Phrase);
  end;
 
begin
  //Инициализируем для выдачи русского текста на экране
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
 
  Write('Введите строку: ');
  ReadLn(Phrase);
  Write('укажите число повторов: ');
  ReadLn(NumRepeat);
  RepeatPhrase(Phrase, NumRepeat);
  ReadLn;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
var
  X, Y: integer;
 
  function Degree(X, Y: longint): Real;
  var
    i: integer;
    Res: Real;
  begin
 
    if Y=0 then
      Result:=1;
 
    if Y>0 then
    begin
      Res:=1;
      for i := 1 to Y do
        Res:=X*Res;
      Result:=Res;
    end;
 
    if (Y<0) and (X<>0) then
    begin
      Res:=1;
      for i := 1 to abs(Y) do
        Res:=X*Res;
      Result:=1/Res;
    end;
  end;
 
begin
  //Инициализируем для выдачи русского текста на экране
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
 
  Write('Введите число: ');
  ReadLn(X);
  Write('введите степень: ');
  ReadLn(Y);
 
  if (X=0) and (Y<0)  then
  begin
    Write('Ошибка: деление на ноль. ');
    ReadLn;
    Exit;
  end;
 
  WriteLn(X,' в степени ', Y, ' равно ', Degree(X, Y));
  ReadLn;
end.