Одинаковое ли количество звуков и букв в данных словах? Земля, праздник, ящерица, тюльпан, понедельник, честный, вьюнок.

ответ к заданию по русскому языку
 

program dfkjlg;
const N=20;
type mas=array[1..N]of real;
var x,y:mas;
procedure vvod(var a:mas;m:integer);
var i:integer;
begin
randomize;
for i:=1 to m do
a[i]:=random(20)-10;
end;
procedure vivod(a:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
write(a[i],' ');
end;
function max(a:mas;m:integer):real;
var i:integer;
begin
max:=a[1];
for i:=2 to m do
if max<a[i] then max:=a[i];
end;
function min(a:mas;m:integer):real;
var i:integer;
begin
min:=a[1];
for i:=2 to m do
if min>a[i] then
min:=a[i];
end;
begin
vvod(x,10);
vvod(y,6);
vivod(x,10);
vivod(y,6);
writeln('максимальный элемент матрицы x= ',max(x,10));
writeln('максимальный элемент матрицы y= ',max(y,6));
writeln('минимальный элемент матрицы x= ',min(x,10));
writeln('минимальный элемент матрицы y= ',min(x,6));
end.

begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.