Разработать программу кодирования текстовых файлов

[19denis90]

у меня гдето ошибка , возможно в end-ах .
задание было такое :
Программа должна выполнить следующие действия: организовать построчное чтение данных из файла, увеличить на 3 код каждой гласной буквы строки, записать строку в выходной файл. Предоставить возможность просмотра исходного и закодированного файлов. Каждое действие оформляется как подпрограмма. Главная программа реализует только диалоговый цикл взаимодействия с пользователем.
/может у кого есть светлые мысли и по заданию.

program Kodirovka;
var
firstfile:text;
secondfile:text;
firstname,secondname:string;
IOres:byte;
i,n:byte;
a,c,symbol:char;

{zahis s proverkoj}
procedure zapisi;
begin

repeat
{I-} write('name1.txt:');
readln (firstname);
assign (firstfile,firstname) ;
reset (firstfile);
{I+}
IOres:=IOresult;
if IOres <> 0 then
writeln('no file!');
until IOres=0;

{ i:=0; n:=length(s)}

repeat
{I-} write('name2.txt:');
readln(secondname);
assign(secondfile,secondname);
rewrite(secondfile);
{I+}
IOres:=IOresult;
if IOres <> 0 then
writeln('no name or file!');
until IOres=0;

begin while not EOF (firstfile) do
begin
while not EOLN (firstfile) do


{if EOLN (firstfile) then}
readln(firstfile,symbol); {chtenie}
{ FOR I=1 TO length(s) do}
if symbol in ['a','e','o','u','i','y','E','Y','U','I','O','A'] then
{c := (ord(3+c));}
c:=chr(3+ord(symbol));
{a:=chr(c); }
{ writeln(secondfile,c:3); } {zapis}

writeln(secondfile,c:3);
end;

{readln(firstfile,c);
writeln(secondfile,a:3);}

end;
close(firstfile);
close(secondfile);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.