Pascal/ Отладка кода программы.

Question

const n=20; 
type mas=array[1..n] of integer; 
 
var 
w:array[1..n]of integer; 
buf,i,k:integer; 
pris:boolean; 
m:byte; 
 
begin randomize(100); 
writeln; 
writeln('Obshi pamyat= ', memavail); 
writeln('Max pamyat= ', maxavail); 
writeln('ishodnye chisla'); 
if maxavail>sizeof(mas) then begin 
getmem(w,sizeof(mas)); 
for i:=1 to n do 
begin 
 m:=random(5); 
 if m=0 then w^:=0 
 else w^:= random(150); 
 write(w^,' '); 
end; end; 
writeln; 
 
k:=n; 
repeat 
pris:=true; 
dec(k); 
for i:=1 to k do 
 if w^ =0 then pris:=true 
 else 
 begin 
 if w^ < w^[i+1] then 
 begin 
 buf:=w^; 
 w^:=w^[i+1]; 
 w^[i+1]:=buf; 
 pris:=false; 
 end; 
 end; 
until pris; 
 
pamyat; 
writeln;writeln('posle sortirovki'); 
for i:=1 to n do 
 write(w^ ,' '); 
freemem(w,sizeof(mas)); 
pamyat; 
readkey; 
 
end. 
если у кого-нибудь есть паскль. проверьте пожалуйста и помогите с ошибками.

Алена · Accepted Answer

И проверять нечего - сразу же появляются необъявленные memavail и maxavail... 
Я уж не говорю о том, что для публикации на "Ответах" текст программы надо специально готовить, иначе он искажается. 
А проверить программу неизвестного назначения вообще невозможно. 
И, наконец - кто мешает тебе поставить себе Pascal? Дело нескольких минут.

Колян · Answer

1.Чему у вас mas равно? 
if maxavail>sizeof(mas) then begin 
Идет сравнение с чем?

Руслан Гусаров · Answer

var w:array[1..n]of integer; 
 
getmem(w,sizeof(mas)); 
 
Не получится так, нужен указатель. 
Остальное можно уже не проверять.