[BBBCat]

Верно, одну строковую переменную надо было оставить, тут всё правильно. Но:

1. не сделали
2. есть
3. есть
4. не сделали
5. не сделали (где пробелы???)
6. так, но if Eof(F) then Break тоже выше надо
7. так, но такая белиберда с pos, delete и copy, что естественно тут ошибки
8. читать вы не хотите, а не представляете, насколько сильно это облегчило б вам жизнь(практически до одной строчки)
9. тоже нет

Pos(Substr: string; S: string) - даёт позицию первой строки во второй. Т.е. I:=Pos('е', 'легко') сделает I равным 2
Delete(var S: string; Index, Count:Integer) - процедура, а не функция, слева ничего не надо писать. Удаляет Count символов(букв или цифр) у строки S начиная с позиции под номером Index. Если S:='легко';, то Delete(S, 3, 2) сделает S равным 'лео'
Copy(S; Index, Count: Integer) возвращает часть строки, опять же Count символов начиная с позиции Index. Получаем S:=Copy('легко', 3, 3) сделает S равным 'гко'.
А вообще - читайте документацию.