Cannot read or write variables of this type

writeln(' ',s);

uses crt; 
type fraza=(god, goda, let); 
var s: fraza; 
k,n:integer; 
begin 
clrscr; 
readln(n); 
for k:=1 to n do 
begin 
write('mne ', k); 
if k mod 10=0 then s:=let; 
if (k mod 10>=5) and (k mod 10<=9) then s:=let; 
if (k mod 10<5) and (k mod 10>1) and (k>20) then s:=goda; 
if (k mod 10 = 1) and (k>20) then s:=god; 
if k=1 then s:=god; 
if (k>10) and (k<15) then s:=let; 
if (k>1) and (k<5) then s:=goda; 
writeln(' ',s); 
end; 
readln; 
end.

const Years : array[1..3] of String = ('год','года','лет'); 
var inN,N01,N10,idx,i:integer;
tmps:string;
begin
readln(InN);
for i:=1 to InN do begin
Str(i, tmpS); 
N01 := i mod 10; 
N10 := i div 10; 
if (N01 = 0) or (N01 > 4) or (N10 = 1) then idx := 3 else 
if (N01 > 1) and (N01 < 5) then idx := 2 else idx := 1; 
tmpS := tmpS + ' ' + Years[idx]; 
writeln(tmpS);
end;
readln;
end.