Где исправить ошибки в программе??

program Lab5; 
uses crt; 
var 
x:array[1..10] of string[8]; 
idx,n:byte; 
begin 
clrscr; 
writeln('Программа обработки данных строкового типа.'); 
writeln('После каждого слова нажимайте Enter.'); 
writeln; 
writeln('Введите 10 слов из 6-8 символов.'); 
for idx:=1 to 10 do 
begin 
write(idx, '-е слово:'); 
readln(x[idx]); end; 
write('Введите длину слов, которые нужно изменить:'); 
readln(n); 
for idx:=1 to 10 do begin 
if length(x[idx])=n then 
begin 
while pos('a', x[idx]) <> 0 do 
delete(x[idx], pos('a', x[idx]), 1); 
end; 
write(x[idx],' '); 
end; 
readln; 
writeln('Для выхода из программы нажмите Enter.'); 
readln; 
end.

program Lab5;
uses crt;
var
x:array[1..10] of string[8];
idx,n:byte;
begin
clrscr;
writeln('Программа обработки данных строкового типа.');
writeln('После каждого слова нажимайте Enter.');
writeln;
writeln('Введите 10 слов из 6-8 символов.');
for idx:=1 to 10 do
begin
    write(idx, '-е слово:');
    readln(x[idx]); end;
    write('Введите длину слов, которые нужно изменить:');
    readln(n);
    for idx:=1 to 10 do begin
    if length(x[idx])=n then
    begin
        while pos('a', x[idx]) = 0 do
        delete(x[idx], pos('a', x[idx]), 1);
    end;
    write(x[idx],' ');
end;
readln;
writeln('Для выхода из программы нажмите Enter.');
readln;
end.

program Lab5;
uses crt;
var
x:array[1..10] of string[8];
i,n:byte;
begin
clrscr;
writeln('Программа обработки данных строкового типа.');
writeln('После каждого слова нажимайте Enter.');
writeln;
writeln('Введите 10 слов из 6-8 символов.');
for i:=1 to 10 do
begin
write(i, '-е слово:');
readln(x[i]); end;
write('Введите длину слов, которые нужно изменить:');
readln(n);
for i:=1 to 10 do begin
if length(x[i])=n then
begin
delete(x[i],1,3);
insert('*',x[i],1);
end;
write(x[i],' ');
end;
readln;
writeln('Для выхода из программы нажмите Enter.');
readln;
end.