Чем можно поменять var(k,n,h):=ReadInteger3; в этой программеconst

Чем можно поменять var(k,n,h):=ReadInteger3; в этой программе

const
c='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

begin
var(k,n,h):=ReadInteger3;
for var row:=1 to k do
for var height:=1 to h do
begin
var s:string:=c[height]*height+' ' *(h-height);
writeln(s*n);
end;
end.

Версия паскаля 3.3 сборка 1547