Даны длины десяти...

Даны длины десяти сторон квадратов. Вычислите их площади и периметры. В паскале!! Пожалуйста помогите , это оченьважно!!!!!СРОЧНО

 

Program Pr1;
uses crt;
var i,s,p:integer;
mas:array[1..10] of integer;
begin
clrscr;
for i:=1 to 10 do begin
writeln('Введите ',i,'-ую сторону квадрата');
readln(mas);
end;
for i:=1 to 10 do begin
s:=sqr(mas);
p:=4*mas;
writeln('Площадь ',i,'-ого квадрата=',s);
writeln('Периметр ',i,'-ого квадрата=',p);
end;
end.