паскаль фри,строки, заданы м строк символов которые вводятся с клавиатуры напечатать все ц Опции

[masha]

Код

Program My;  var  s:string;  i,n,m:integer;  begin  write('vvedite stroky: ');  readln(s);  n:=length(s);  for i:=1 to n do  if(n mod 2)=1 then write(s[i][(n div 2)+1]);

Помогите пожалуйста

[Krjuger]

Ну если востановить то,что в заголовке и то, что написано,то Надо N строк и надо напичатать все четные символы)))
Конешно же код делает совершенно не то.)))Он даже не откомпилируеться,так как в конце нету end. В общем ждем человека,чтобы понять,что именно он хочет.