Помогите с задачами по паскалю пожалуйста

1.Задана матрица размером NxM вещественных чисел. Получить массив B, присвоив его k-му элементу сумму элементов к 1-й строки матрицы.

2.Дан текст, который состоит из слов. Слова в тексте отделяются одно от другого пробелами и содержат гласные буквы, которые находятся во множестве [‘ а ‘, ‘ е ‘, ‘ у ‘, ‘ о ‘]. Подсчитать количество букв в тексте, количество слов в тексте и вывести из текста количество гласных букв данного множества.

//Pascal ABC.NET 3.1 сборка 1256//1Const n=3; m=4; Var ma:array[1..n,1..m] of real; ar:array[1..n] of real;i,j:integer;s:real;beginrandomize;s:=0;writeln('Matrix:');for i:=1 to n do begin  for j:=1 to m do   begin    ma[i,j]:=random(10);    write(ma[i,j]:4);    s:=s+ma[i,j];   end;  ar[i]:=s;  s:=0;  writeln; end;writeln('Res:');for i:=1 to n do writeln(i,':',ar[i]);end.//2Var se:set of char; s:string; i,r1,r2:integer;beginse:=['а','е','у','о'];readln(s);s:=s.Trim;i:=1;while i<length(s) doif (s[i]=' ') and (s[i+1]=' ') then delete(s,i+1,1) else inc(i);var ars:=s.Split;for i:=1 to length(s) do begin  if ((ordansi(lowcase(s[i]))>=65) and (ordansi(lowcase(s[i]))<=90)) or ((ordansi(lowcase(s[i]))>=97) and (ordansi(lowcase(s[i]))<=122)) or ((ordansi(lowcase(s[i]))>=128) and (ordansi(lowcase(s[i]))<=175)) or ((ordansi(lowcase(s[i]))>=224) and (ordansi(lowcase(s[i]))<=243)) then inc(r1);  if lowcase(s[i]) in se then inc(r2); end;writeln('Количество букв:',r1);writeln('Количество слов:',ars.Length);writeln('Количество гласных из множества:',r2);end.Пример ввода:Просто текстПример вывода:Количество букв:11Количество слов:2Количество гласных из множества:3