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