проблема с одномерными массивами

[Ekaterina1989]

Приветики всем!!!! Может кто нибудь помочь или как нибудь посодействовать решению задачки по программированию, а то задали а я в паскале с трудом решаю и самые легкие задачки Сидела думала думала, знаю что нужно решать через процедуры, что должна быть процедура ввода и вывода массива, inpyt и print помоему, а вот что дальше делать непонятно

задачка вот такая дурацкая Составьте програмку которая проверяла бы, есть ли в одномерном массиве A(k) числа F, L причем задачка должна определять какое из данных чисел встречается в массиве чаще другого

[skrudjmagdak]

uses crt;
var
a:array[1..10] of integer; {от -32000 до +32000 (приблизительно)}
i,L,F:word; {от 0 до 65535}
L1,F1:boolean;
L2,F2:byte;
begin
clrscr;
a[1]:=4;
a[2]:=5;
a[3]:=7;
a[4]:=5;
a[5]:=2;
a[6]:=3;
a[7]:=7;
a[8]:=4;
a[9]:=2;
a[10]:=1;
writeln('введи L:'); readln(L);
writeln('введи F:'); readln(F);
for i:=1 to 10 do begin
if a[i]=L then
begin
L1:=true;
inc(L2)
end;

if a[i]=F then
begin
F1:=true;
inc(F2)
end;
end;
if L1 then writeln('Число L в массиве есть. ',L2,' шт');
if F1 then writeln('Число F в массиве есть. ',F2,' шт');
if L2=F2 then writeln('чесел L и F одинаково') else
if L2>F2 then writeln('чесел L больше') else writeln('чесел F больше');
readkey;
end.

Такой код проги сойдет???