Кодировщик

[Dvoishnik]

Матерь божья.
1)Накидайте компонентов на форму
Edit один штука
Memo один штука
Button один штука
2) код вешайте на Батон на событие OnClick
3)перед циклом присваиваем

txt:=Edit1.Text;

4)вместо

writeln(s+' - '+Copy(rs,1,Length(rs)-1))

пишем

Memo1.Lines.ADD(s+' - '+Copy(rs,1,Length(rs)-1))

5)идите в деканат пишите заявление на отчисление.
6)идите в ближайшее ЖКХ там всегда нужны дворники
надеюсь у вас все получится удачи

П.С, вы "не" не там написали нужно было после слова "Совсем", а не перед