Получение информации кроссворд​

const n=100;

program Zadacha1;

ver a: array [1.. n] of real;

x:: real; i: integer;

begin;

writeln ('Введите элементы массива');

for i = 1 to n do red (a [i])

writeln ('Введите значение для поиcка')

read (x);

for i:=1 to n do

if a[i] == x then

writeln ('на ', i, 'месте массива находится заданный элемент', x:8:2);

end!

Объяснение:

В первой строке пропустил ";".

В пятой написал began, а правильно begin.

В седьмой между i и = не должна быть ";", при этом для цикла for нельзя ставить ";".

В восьмой не посика, а поиска, еще забыл ";".

И на последней строчке не enn, a end.

 const     
z = 30; // максимально число слов  
var   
s,w : string;   
n,p,i,j,l : integer;   
words : array [1..z] of string;   
kw : array [1..z] of integer;   
r : boolean;    
begin 
writeln ('введите строку'); 
readln (s); 
writeln ('укажите кол-во повторений'); 
readln (n);   
l := Length(s); 
p := 1; 
w := '';    
 for i := 1 to l do       
 if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then   
   w := w + s[i]    
    else     
begin   
  for j := 1 to p do   
   if w = words[j] then 
      begin   
      kw[j] := kw[j] +1;   
     r := true;     
   end;        
      if not r then   
    begin   
      p := p +1;   
      words[p] := w; 
       kw[p] := kw[p] +1;     
   end;    
    w := '';   
  r := false;   
      end;   
      for i := 1 to p do 
  if kw[i] > n then 
  writeln (words[i]);      
      end.