program pinakas; uses crt; var x:array[1..8]of string[20]; i:integer; BEGIN clrscr; {eisagogi stoixeion} for i:=1 to 8 do begin write('Dose to ',i,'o stoixeio='); readln (x[i]); end