Прошу проверить код программы

[Pashtet]

задача была следующей: дан вектор х с координатами (х1;х2;х3;...;хk найти квадратный корень из суммы квадратов координат вектора.

program e1;
uses crt;
var m: ARRAY[1..255] of integer;
n: integer;
i: integer;
s: integer;
k: real;
begin
clrscr;
writeln('Введите число координат вектора:');
readln(n);
for i:=1 to n do
begin
writeln('Чему равна',i,'координата вектора? Ответ: );
readln(m[i]);
end;
s:=0;
for i:=1 to n do
begin
s:=s+sqr(m[i]);
end;
k:=sqrt(s);
writeln('Корень суммы квадратов координат вектора равен ',k);
readln;
end.

Спасибо всем откликнувшимся.
ЗЫ Тяжело выражать математические формулы на русском литературном языке!

[Ganmaker]

1. надо проверять сколько вводят n (0-255), иначе прога может заглючит
2. нет необходимости создавать два цикла: для ввода и для вычислений, можно сразу считать после ввода данных в одном цикле.
3.чтоб найти квадрат достаточно перемножить число само на себя, функции считаются медленнее.
4. переменные одного типа можно записать в одну строку, через запятую.

а в остальном вроде ничего