Процедура: нахождение целой положительной степени числа 10 - Free Pascal

Формулировка задачи:

Помогите доработать программу { Напишите процедуру Power10(k:byte; var z:comp), в которой находится целая положительная степень числа 10. }

                    Листинг программы
                
 
                        
                          
                    
Program Prog_sam_13_04;
 
Var
    p:comp;
Begin
    Power10(2,p);
    Writeln('1E02 = ', p:1:0);
 
    Power10(8,p);
    Writeln('1E08 = ', p:1:0);
 
    Power10(18,p);
    Writeln('1E18 = ', p:1:0);
End.

Решение задачи: «Процедура: нахождение целой положительной степени числа 10»

Листинг программы

uses crt;
procedure Power10(k:byte; var z:comp);
var i:byte;
begin
z:=1;
if k>0 then
for i:=1 to k do
z:=z*10;
writeln('10^',k,'=',z:0:0);
end;
var p:comp;
begin
clrscr;
Power10(2,p);
Power10(8,p);
Power10(18,p);
readln
end.

Объяснение кода листинга программы

uses crt; - подключает модуль для работы с консолью
procedure Power10(k:byte; var z:comp); - объявляет процедуру с именем Power10, которая принимает два аргумента типа byte (k) и comp (z), и возвращает nothing
var i:byte; - объявляет переменную i типа byte
z:=1; - инициализирует переменную z значением 1
if k>0 then - условие, которое проверяет, больше ли k нуля
for i:=1 to k do - начинает цикл, который выполняется k раз
*z:=z10;** - умножает значение z на 10
writeln('10^',k,'=',z:0:0); - выводит на экран строку '10^' и значение k, затем '=', и значение z, предварительно отформатированное до 0 знаков после запятой
var p:comp; - объявляет переменную p типа comp
begin - начало блока процедур
clrscr; - очищает экран
Power10(2,p); - вызывает процедуру Power10 с аргументами 2 и p
Power10(8,p); - вызывает процедуру Power10 с аргументами 8 и p
Power10(18,p); - вызывает процедуру Power10 с аргументами 18 и p
readln - ожидает ввода с клавиатуры
end. - конец блока процедур и программы в целом