Не запускается программа

[(Нафаня)]

 program zadacha;
           var s:string;
                i:integer;
           begin
               write(s);
               readln;
               writeln;
               for i:=1 to length(s)-1 do
               if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);
               for i:=1 to length(s)-1 do
               write(s[i]);
              readln
           end.

Не могу понять почему не запускается программа. Что здесь не правильно? надо было строчные буквы лат алф перевести в прописные

[(Нафаня)]

хех( никто не поможет(

[Juffin]

В каком смысле не запускается? Не компилируется или запускается и сразу же вылетает?
Update: у вас строка s не считывается, а выводится в начале.

[(Нафаня)]

она уже запускается, но после ввода строки вылетает

[Zer0]

program zadacha;
           var s:string;
                i:integer;
           begin
               readln(s);
               for i:=1 to length(s) do
               if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);
               for i:=1 to length(s) do
               write(s[i]);
              readln;
           end.