Turbo Pascal

[Maliish]

Помогите решить задачки! Буду очень признательна!

50. const n =...;
type vector = array [1..n] of real;
var a,b,c,d: vector;
Пусть процедура sum(x,y,z) присваивает вектору z сумму векторов x и
y. Описать данную процедуру и использовать ее для вычисления
d = a + b + c.

17. Для каждой малой латинской буквы 'a', 'b', 'c',..., 'z' напечатать
количество вхождений в данную строку S.

[rus12]

17.

type
stroca= set of 'a'..'z';
var
lat:stroca;
text:string;
i,s:integer;
begin
  lat:=['a'..'z'];
  write('vvedite predlogenie');
  readln(text);
  s:=0;
    for i:= 1 to length(text) do
      begin
       if text[i] in lat  then s:=s+1;
      end;
   write(' v predlogenii:',text,' latinskih bukv:',s);
readln;
end.

[Maliish]

Спасибо тебе огромное очень помог!!