помогите правильно создать программу в delphi

Ввести с клавиатуры текст объемом до 255 символов на англ языке. Подсчитать количество согласных букв в тексте. Определить, встречается ли в тексте слово "экономика".

Var
s:string;
k1,k2,i,j,n:integer;
B:array[1..10] of char;
f:textfile;
begin
{ TODO -oUser -cConsole Main : Insert code here }
assignfile(f,'Lab2.txt');
rewrite(f);
B[1]:='o';
B[2]:='i';
B[3]:='a';
B[4]:='e';
B[5]:='u';
B[6]:='y';
B[7]:=' ';
B[8]:='.';
B[9]:=',';
B[10]:=';';
writeln('vvedit text');
writeln(f,'vvedit text');
readln(s);
writeln(f,s);
n:=length(s);
k1:=0;
For i:=1 to n do
For j:=1 to 10 do
If S=B[j] then
begin
k1:=k1+1;
k2:=n-k1;
end;
writeln(k2);
writeln(f,k2);
If pos('ekonomika',s)<>0 then
writeln('vhodut')
Else
writeln('ne vhodut');

If pos('ekonomika',s)<>0 then
writeln(f,'vhodut')
Else
writeln(f,'ne vhodut');
closefile(f);
readln;
end.

обязательно в консоле